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20.  ABSTRACT  (continued) 


Q— ' 


yrfhe  Automated  Course  Scheduling  System  (ACSS)  -reported  herein  was 
developed  to  relieve  Naval  training  personnel  from  the  burden  of  the  labor- 
intensive  scheduling  process  and  provide  them  with  the  capability  of  studying 
all  possible  schedules  to  achieve  better  utilization  of  school  resources. 

The  ACSS  is  a high-level,  interactive,  and  user-oriented  system  intended  for 
use  at  the  school  level.  Its  design  is  based  on  limited  and  low-cost  hardware 
requirements.  The  system  can  be  implemented  readily  on  a Wang  2200  system 
with  a duaWloppy  diskette  drive  and  requires  a memory  of  16-K  bytes. 

V j 

With  the  support  of  a number  of  data  bases,  the  ACSS  can  be  used  to 
perform:  (^)  random  retrieval  of  training-course  data,'  (fj)  feasibility 
assessment  of  training  demands  under  available  resources,  (»)  documentation 
of  schedule  work  sheets,  and  (4)  editing  and  printing  of  schedules.  Presently., 
the  research  effort  is  directed  toward  evaluating  and  fl el d-t testing  the  system, 
at  various  activities.  1 


/ 


FOREWORD 


This  task  is  a subelement  of  the  Design  of  Training  Systems 
(DOTS)  project.  The  objectives  of  the  DOTS  program  are  in  consonance 
with  the  requirements  of  Advanced  Development  Objective  ZPN07  (former- 
ly ADO  43-03X) , Education  and  Training  Development.  ZPN07  includes 
a number  of  projects  concerned  with  demonstrating  and  evaluating  the 
technical,  operational,  and  financial  feasibility  of  applying  advanced 
technological  applications  to  improving  the  training  process. 

The  Bureau  of  Naval  Personnel  initiated  the  original  ADO  in 
1966  to  make  Naval  training  more  responsive  to  the  changing  times. 

As  one  project  under  this  effort,  DOTS  was  designed  to  improve  the 
process  of  managing  training  resources  through  application  of  the 
techniques  of  system  analysis  and  system  simulation  as  accomplished 
through  mathematical  modeling.  The  end  objective  is  a family  of  com- 
puterized mathematical  models  enabling  training  management  to  more 
rapidly  predict  the  impact  of  changes  in  training  resource  availa- 
bility of  requirements. 

The  Training  Analysis  and  Evaluation  Group,  Dr.  A.  F.  Smode, 
Director  and  Mr.  M.  G.  Middleton,  complemented  the  contracted  effort 
by  providing  direction  and  guidance  and  establishing  organizational 
interfaces.  Appreciation  is  also  acknowledged  to  Dr.  M.  M.  Zajkowski 
for  his  editorial  assistance,  Mr.  C.  Guitard  for  his  assistance  in 


programming,  and  Mr.  W.  H.  Lindahl  (now  of  the  Navy  Manpower  Reserve 
Affairs  and  Logistics)  for  his  assistance  in  the  early  stages  of  the 
study . 
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SECTION  1 


INTRODUCTION 


BACKGROUND 

The  scheduling  process  for  training  courses  in  the  Naval 
Education  and  Training  Command  (NAVEDTRACOM)  is  labor-intensive. 
It  entails  generating  and  maintaining  schedules  to  meet  planned 
input  requirements,  subject  to  the  suitabil ity/availabil ity  of 
instructors,  equipment,  and  facilities.  In  the  process,  schedules 
must  not  only  be  established  for  the  current  year,  updated,  and 
revised  as  necessary,  but  also  projected  for  the  out-year  planning 
requirements  of  the  5-year  defense  plan.  As  a result,  the  goal  of 
the  scheduling  process  is  to  arrive  at  a feasible  plan,  even 
though  that  plan  may  not  be  optimal  in  terms  of  the  utilization  of 
school  resources.  Trade-offs  in  schedules  are  made  by  exception 
when  a crisis  situation  arises. 

Besides  its  labor  intensiveness,  guidance  is  minimal,  result- 
ing in  scheduling  processes  that  are  subject  to  the  vagaries  of 
individual  style  and  competency.  In  view  of  these  problems,  a 
study  was  conducted  and  reported  in  "An  Heuristic  Approach  for  the 
Scheduling  of  Navy  Training  Courses. "1  Findings  of  that  study 
suggested  that  potential  significant  savings  might  result  from  the 
automation  and  optimization  of  the  scheduling  process.  Fur- 
thermore, the  study  recommended  development  of  a scheduling  me- 
thodology that  would  help  Navy  training-complex  personnel  achieve 
an  optimum  schedule  in  a quick  and  easy  way. 


As  a result  of  these  findings  and  recommendations,  a three- 
phase  study  has  been  undertaken.  The  first  phase  is  to  document 
and  automate  the  present  scheduling  process  with  the  objective  of 
arriving  at  a feasible  schedule  easily  and  quickly.  In  the  second 
phase,  an  optimum/quasi-optimum  scheduling  system  will  be 
developed.  An  optimum  schedule  can  be  defined  either  to  optimize 
the  utilization  of  school  resources  in  meeting  training  require- 
ments, or  to  maximize  tha  training  inputs  subject  to  the 
suitabil ity/availability  of  school  resources.  In  the  third  and 
last  phase,  the  research  team  will  act  as  an  innovation/change 
agent  to  assist  Naval  technical  training  schools  in  implementation 
of  the  developed  system.  The  Automated  Course  Scheduling  System 
(ACSS)  reported  herein  is  the  product  of  the  first  phase. 


* Lindahl,  W.H.,  and  B.W.  Lin,  1977.  An  Heuristic  Approach 
for  the  Schedul ing  of  Navy  Training  Courses.  TAEG  Report  No.  52, 
Training  Analysis  and  Evaluation  Group,  Orlando,  Florida. 


OVERVIEW  OF  THE  ACSS 

The  ACSS  was  developed  to  relieve  Naval  training  personnel 
from  the  burden  of  the  labor-intensive  manual  scheduling  process 
and  provide  them  with  the  capability  of  studying  all  possible 
schedules  to  achieve  better  utilization  of  school  resources. 
Specifically,  the  automated  system  can  be  used  to  perform  these 
functions: 

a.  Storage  of  training  course  data. 

b.  Random  retrieval  of  training  course  data. 

c.  Feasibility  assessment  of  schedules. 

(1.  Documentation  of  schedule  work  sheets. 

e.  Print  feasible  schedules  for  documentation. 


PURPOSE 

The  purposes  of  this  report  are  to: 

a.  Describe  the  structure  of  the  ACSS  and  its  elements, 
along  with  the  logic  in  each  element. 

b.  Provide  a user's  guide  to  familiarize  Naval  training- 
complex  personnel  with  the  use  of  the  ACSS. 

c.  Document  the  programming  details  of  the  ACSS. 

ORGANIZATION  OF  THE  REPORT 

In  addition  to  this  introduction,  two  other  sections  are 
included  in  this  report.  Section  II  presents  a description  of  the 
ACSS  system  and  explains  how  each  module  in  the  system  works. 
Section  III  is  a summary  of  the  research  effort  in  Phase  I.  In 
Appendix  A,  a guide  is  provided  on  how  to  implement  and  modify  the 
ACSS  system  if  the  school  operates  differently  from  some  of  the 
assumptions  made  in  the  system.  A step-by-step  procedure  is 
supplied  to  illustrate  how  to  use  the  system.  Appendix  B contains 
a listing  of  the  computer  program  for  the  ACSS. 
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SECTION  II 


DESCRIPTION  OF  THE  AUTOMATED  COURSE  SCHEDULING  SYSTEM  (ACSS) 


The  purpose  of  this  section  is  to  describe  the  structure  of 
the  ACSS  and  its  elements.  Since  the  ACSS  evolved  from  the  ini- 
tial study,  "An  Heuristic  Approach  for  the  Scheduling  of  Navy 
Training  Courses,"  some  of  the  system  logic  used  in  the  ACSS  is 
derived  from  that  study.  The  current  manual  scheduling  process, 
course  requirements,  and  instructor  requirements  are  well  doc- 
umented in  that  report. 

The  ACSS  is  a high-level,  interactive,  and  user-oriented 
system  intended  for  use  at  the  school  level.  Its  design  is  based 
on  limited  and  low-cost  hardware  requirements.  The  system  can  be 
readily  implemented  on  a Wang  2200  system  with  a dual  floppy 
diskette  drive  and  requires  a memory  of  16-K  bytes.  The  ACSS  is 
packaged  in  two  diskettes--one  diskette  contains  the  schedule 
program  files  and  the  other  contains  the  schedule  data  files. 
Currently  the  system  can  handle  up  to  600  courses,  and  can  be 
tailored  to  the  specific  need  of  the  school. 


SYSTEM  OVERVIEW 


Figure  1 1 — 1 provides  the  system  schematic  of  the  ACSS.  The 
SCHEDULE  is  the  system  control  interfacing  the  user  to  the  four 
modules--the  data  base  module(SCH.BASE)  , the  feasibility  study 
module (SCH. FEAD) , the  print  work  sheet  module (SCH.WSHT) , the  print 
schedule  module (SCH. PLT) . The  data  base  module  creates  and  main- 
tains the  course  file  with  a capacity  of  storing  as  many  as  600 
courses.  The  feasibility  study  module  is  used  to  help  assess 
schedule  feasibility.  If  a schedule  is  infeasible,  the  module  can 
be  executed  iteratively  to  determine  a feasible  schedule.  Both 
the  print  work  sheet  and  print  schedule  modules  are  used  for 
documentaion  purposes.  While  the  schedule  work  sheets  provide 
such  essential  information  as  the  number  of  convenings,  instruc- 
tor, and  trainer  requirements,  the  course  schedule  plots  lay  out 
the  beginning  and  ending  dates  of  each  class  convening  for  a 
desired  course. 

After  the  course  data  base  has  been  created,  the  user  can 
access  it  directly  from  each  of  the  modules.  When  the  user  is 
done  with  the  module  just  being  worked  on,  the  program  control 
will  always  return  to  the  SCHEDULE  module  and  display  the  system 
control  menu  on  the  screen  for  further  execution.  Since  the 
entire  program  requires  a memory  of  approximately  32-K  bytes  (well 
over  the  assumed  memory  capacity) , overlaying  techniques  are  used 
which  load  only  the  portion  of  the  program  to  be  executed.  Con- 
sequently, the  user  will  encounter  seconds  of  pause  when  some 
portion  of  the  program  is  being  loaded,  and  program  loading  times 
may  vary  due  to  the  unequal  size  of  the  modules. 


Data  Base 
Module 
(SCH .BASE) 


Print  Work 
Sheet  Module 
(SCH.WSHT) 


Work  Sheets 


[Schedule  Plots 


Feasibility 
Study  Moduli 
(SCH.FEAD) 


Feasibility 


Figure  II-l.  System  Schematic  of  the  ACSS 


System  Contro 
(SCHEDULE) 


Print  Schedule 
Module 
(SCH.PLT) 


THE  ACSS  DATA  BASE 


The  ACSS  Data  Base  is  a collection  of  training  course 
records,  which  provides  data  required  for  operation  of  the  ACSS. 
Its  creation  and  maintenance  is  a function  of  the  train  ig-complex 
personnel  at  the  specific  activity.  With  the  Data  Base  Module  to 
be  described  later,  the  user  can  add  and  delete  courses,  change 
data  elements  in  a course,  and  examine  the  file  contents  in  the 
data  base.  Courses  in  the  course  file  can  be  accessed  in  a random 
manner . 

The  ACSS  Data  Base  is  implemented  using  Wang's  Key  File  Access 
Method  (KFAM)  routines.  KFAM  is  a system  for  storing  and  re- 
trieving individual  records  in  a file.  For  each  file  of  records, 
KFAM  creates  and  maintains  an  index  of  the  individual  records  and 
their  locations  in  the  file.  The  index  called  the  key  is  used  to 
distinguish  the  record  it  identifies  from  all  other  records.  The 
file  of  keys  called  the  key  file  is  itself  kept  as  a cataloged 
file  on  a diskette.  Associated  with  the  key  file  is  the  user  file 
containing  the  file  of  records.  Thus,  when  the  user  instructs  in 
a program,  for  instance,  "FIND  ME  THE  RECORD  FOR  COURSE  NUMBER 
A123, " KFAM  routines  incorporated  into  the  program  will  search  the 
key  file  index  and  put  the  address  of  record  A123  into  the  user 
file's  current  address  parameter  in  the  Device  Table.  The  user 
can  then  read  off  the  data  of  the  record  for  use.  For  more 
details  on  KFAM,  refer  to  Wang's  "ISS  Manual." 

Before  key  and  user  files  can  be  used  for  storing  keys  and 
course  data,  the  files  first  must  be  formated  or  initialized. 
Setup  utilities  are  used  for  this  purpose.  A guide  to  initializ- 
ing such  files  for  the  ACSS  Data  Base  is  provided  in  the  User's 
Guide  in  Appendix  A. 

As  the  Course  Data  Processing  (CDP)  code  is  a unique  iden- 
tifier in  the  Navy,  the  code  is  used  as  the  key  for  course  iden- 
tification. The  data  elements  contained  in  each  course  record 
are : 

a.  Course  Data  Processing  (CDP)  Coda--a  code  that  identifies 
each  course  of  instruction  by  location.  Identical  cour- 
ses taught  in  different  locations  will  have  individual 
CDP  codes.  It  becomes  the  enlisted  Training  History 
Code. 

b.  Course  Identification  Number (CIN) --the  10-position  al- 
phanumeric CIN  code  used  in  the  Catalog  of  Navy  Training 
Courses.  This  identifies  the  command  sponsoring  the 
course,  the  DOD  skill  for  which  the  course  trains  and  the 
sequence  number  to  facilitate  locating  the  course  within 
the  course  catalog. 

c.  Course  Short  Ti tl e--abbreviated  descriptive  title  of  the 
course . 
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annual 


d.  Planned  Input — the  current  tota'  anticipated 
demand  for  the  course. 

e.  Class  Size--the  current  limiting  capacity  for  the  course. 

f.  Course  Length--the  number  of  calendar  days  that  expire 
from  the  class  convening  date  (including  the  class  con- 
vening date)  to  the  class  graduation  date  (including  the 
class  graduation  date). 

g.  Student/Instructor  Ratio--the  ratio  of  students  to  each 
instructor.  Since  each  phase  of  training  associated  with 
the  course  may  require  a different  ratio,  several  ratios 
may  be  entered  for  each  course.  In  this  report  the  term 
is  shortened  as  "Contact  Ratio." 

h.  Total  Course  Contact  Hours--the  total  contact  hours  is 
the  number  on  the  Master  Schedule  for  group-paced  courses 
and  the  average  total  contact  hours  for  self-paced  cour- 
ses. The  total  instructional  contact  hours  taught  at  the 
various  ratios  must  equal  the  total  course  contact  hours. 

i.  Instructors  Available--the  number  of  instructors 
available  for  the  course. 

j.  Other  Instructors  Available--the  number  of  non-Navy  in- 
structors (e.g.  Coast  Guard)  available  for  the  course. 

k.  Trainers  Available--the  number  of  simulated  and/or 

operational  training  equipment  available  for  the  course. 

l.  Support  Available--the  number  of  support  personnel 

available  for  the  course. 

m.  Support  Manpower  Authorization  (Support  MPA)--the  number 
of  support  personnel  required  for  the  course. 

All  the  data  elements  except  items  i,  j,  k,  1,  and  m are 
available  in  the  Master  Course  Reference  File  ( MCRF)  EXTRACT  TAPE 
of  the  Navy  Integrated  Training  Resources  and  Administration 
System  (NITRAS) . Thus,  there  are  two  ways  to  create  the  course 
data  file  (user  file).  One  way  is  to  input  course  data  course  by 
course.  The  other  way,  easier  if  equipment  for  transferring  data 
from  tape  to  disk  is  available,  is  to  extract  the  required  data 
from  a NITRAS  MCRF  EXTRACT  TAPE.  After  the  extraction  is  com- 
pleted, any  required  data  not  available  in  the  NITRAS  TAPE  can  be 
added  for  each  course. 

STRUCTURE  OF  THE  DATA  BASE  MODULE 

A schematic  of  the  ACSS  Data  Base  module  structure  is  shown 
in  Figure  II-2.  Besides  the  key  file  and  the  course  file  discus- 
sed earlier,  the  module  also  contains  the  Course  Delete  File.  The 
Course  Delete  File  keeps  track  of  the  addresses  of  the  deleted 


Figure  II-2.  Schematic  of  the  Data  Base  Module 


courses.  When  a new  course  is  added,  the  course  is  stored  in  the 
location  previously  deleted  if  such  a location  is  found  in  the 
Course  Delete  File. 

While  the  Course  Delete  File  must  be  initialized  by  executing 
the  Course  Delete  Initialization  Subroutine,  the  Course  Key  File 
and  the  Course  File  must  be  formated  using  the  Integrated  Support 
System  (ISS)  Utilities.  The  ISS  Utilities  are  designed  to  assist 
the  user  in  specifying  file  formats,  such  as  record  type,  record 
length,  key  length,  estimated  number  of  records,  etc. 

In  the  module,  the  Course  File  Control  Subroutine  is  thu  main 
control  which  directs  the  user  to  use  the  four  data  manipulation 
functions  with  a function  menu.  The  Course  File  Subroutine 
displays  the  CDP,  CIN,  and  course  short  title,  course  by  course 
for  all  courses  in  the  course  file.  The  Course  Change  Subroutine 
is  used  either  to  look  up  course  data  elements  or  to  change  any 
data  elements  for  a course.  The  Course  Addition  and  Deletion 

Subroutines  are  used  to  add  courses  to  the  course  file  or  delete 
them  from  the  file. 

As  mentioned  earlier,  the  course  data  base  can  be  created 
utilizing  a NITRAS  MCRF  EXTRACT  TAPE.  The  user  is  required  to 
mount  the  tape  containing  course  data  for  the  school  or  activity, 
and  call  the  tape  initialization  subrout i ne ( I NIT. TAP) , which 
instructs  the  Tape  Utilities  to  load  data  from  the  tape  onto  the 
data  file  diskette. 

STRUCTURE  OF  THE  FEASIBILITY  STUDY  MODULE 

The  feasibility  study  module  is  used  to  help  perform  fea- 
sibility assessment  of  schedules.  Figure  II-3  depicts  the  program 
strucure  of  the  module.  The  Course  Requirement  Subroutine  and  the 
Instructor  Requirement  Subroutine  are  called  by  the  Feasibility 
Study  Control  Subroutine  to  calculate  course  and  instructor  re- 
quirements. For  the  sake  of  completeness.  Figures  II-4  and  II-5 
originally  displayed  in  TAEG  Report  S2  are  reproduced  to  show  the 
logic  used  in  course  and  instructor  requirement  calculations.  The 
Feasibility  Display  Subroutine  shows  on  the  screen  the  calculated 
results  and  relevant  information.  With  the  display,  the  user  is 
asked  to  determine  if  the  available  resources  (instructors, 
trainers,  and  equipment)  are  sufficient  to  offer  the  calculated 
convenings.  If  not  sufficient,  the  user  may  look  into  other 
possibilities  by  reducing  such  quantities  as  planned  inputs,  class 
sizes,  etc.  Based  on  these  new  inputs,  the  module  will  recalculate 
course  and  instructor  requirements  and  display  them.  The  process 
is  repeated  until  a feasible  schedule  has  been  achieved. 

STRUCTURE  OF  THE  WORK  SHEET  PRINT  MODULE 

The  work  sheet  print  schedule  is  used  to  print  out  schedule 
work  sheets  containing  such  information  as  planned  inputs,  class 
size  and  length,  convening  frequency,  concurrent  classes,  required 
and  available  instructors,  support,  and  trainers.  The  format  of 


Figure  II-3.  Schematic  of  the  Feasibility  Study  Module 


LOGIC  FOR  INSTRUCTOR  REQUIREMENTS 


the  work  sheet  is  largely  based  on  the  one  currently  in  use  at  the 
Fleet  Anti-submarine  Warfare  Training  Center,  Pacific 
(FLEASWTRACENPAC) . 

Figure  1 1 —6  provides  the  program  structure  of  the  module. 
The  Work  Sheet  Print  Control  Subroutine  controls  the  operation  of 
this  module.  It  instructs  the  Course  Requirement  Subroutine  and 
the  Instructor  Requirement  Subroutine  to  do  calculations  for 
course  and  instructor  requirements.  Work  sheets  are  then  printed 
out.  Two  formats  for  work  sheets  are  available--one  suitable  for 
an  80-column  terminal  and  the  other  for  a line  printer  with  132 
columns.  The  user  also  has  options  either  to  print  out  work 
sheets  for  all  the  courses  in  the  course  file  or  just  to  print 
part  of  it.  In  the  latter  case,  the  user  is  required  to  input  the 
CDP  numbers  of  the  courses  to  be  printed  out. 

STRUCTURE  OF  THE  SCHEDULE  PLOT  MODULE 

The  schedule  plot  module  generates  uniform  loading  schedules 
and  prints  them  out  in  two  formats.  As  in  the  work  sheet  print 
module,  one  format  is  suitable  for  an  80-column  terminal  operation 
and  the  other  is  for  a line  printer  with  132  columns.  The  user 
can  specify  to  print  out  schedules  either  for  all  the  courses  in 
the  Course  Data  Base  or  just  part  of  it. 

Figure  II-7  depicts  the  program  structure  of  the  module. 
Like  the  Course  Data  Base,  the  Plot  Data  Base  consists  of  two 
files  — the  plot  file  and  the  plot  key  file.  The  plot  file  con- 
tains the  beginning  and  ending  dates  of  each  convening,  and  the 
plot  key  file  is  a collection  of  the  keys  of  the  courses  in  the 
plot  file.  The  Plot  Delete  File  keeps  track  of  the  locations  of 
the  deleted  courses  so  that  those  locations  can  be  reused.  The 
Plot  Data  Base  and  the  Plot  Delete  File  must  be  initialized  by 
executing  ISS  Utilities  and  Plot  Delete  Subroutine  respectively. 

In  normal  operation,  the  module  control  proceeds  as  follows. 
The  Schedule  Plot  Control  Subroutine  checks  whether  the  schedules 
for  the  course  to  be  plotted  have  been  made  up  and  stored  in  the 
Plot  Data  Base.  If  the  schedules  do  not  exist,  the  program  checks 
whether  the  military  training  calendar  for  the  desired  planning 
period  is  available.  The  Military  Calendar  Program  is  called  to 
generate  one,  if  not  available.  The  Calendar  Subroutine  is 
capable  of  generating  any  calendar  year  with  the  beginning  and 
ending  dates  of  each  training  week,  considering  the  adjustments 
made  for  the  military  holidays.  Schedules  are  produced  by  calling 
the  Schedule  Generation  Subroutine,  in  which  calculations  as  to 
the  required  number  of  convenings  are  made  and  a table  for  the 
beginning  and  ending  date  of  each  convening  for  the  course  is 
constructed  and  stored  in  the  Plot  Data  Base.  In  the  Plot  Selec- 
tion Subroutine,  the  schedule  plot  format  is  selected.  The  Plot 
subroutine  then  retrieves  the  schedule  table  from  the  Plot  Data 
Base  and  prints  out  the  schedule  plots. 
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Schematic  of  the  Work  Sheet  Print  Module 


SECTION  III 
SUMMARY 

This  report  documents  part  one  of  Phase  I of  the  effort  to 
relieve  NAVEDTRACOM  personnel  of  the  labor  intensive  course  sched- 
uling procedure.  This  initial  effort  was  undertaken  with  the 
intent  of  using  the  Fleet  ASW  Training  Center  existing  computer 
resources  to  develop  feasible  schedules  quickly  and  easily. 


results  of  Phase 


indicate  that: 


a.  Automation  of  the  present  scheduling  procedures  used  at 
the  FLEASWTRACEN  is  possible. 

b.  The  ACSS  as  developed  will  run  on  limited,  low  cost 
hardware,  i.e.,  a Wang  2200  system  with  dual  floppy 
diskette  drive  and  16-K  bytes  of  memory. 

c.  The  system  designed  is  highly  interactive  and  user 
oriented . 

Part  two  of  Phase  I is  directed  toward  evaluating  and  field 
testing  the  ACSS  at  various  activities  with  the  goal  of  improving 
the  system  design  and  modifying  formats  as  necessary. 

During  field  testing  of  the  ACSS,  an  attempt  will  be  made  to 
identify  the  attributes  of  an  optimal  course  schedule.  This 
information  will  then  be  used  in  the  second  phase  of  the  study. 
This  phase  will  begin  with  building  a mathematical  model  for  the 
course  scheduling  problem.  It  will  be  followed  by  the  development 
of  an  algorithm  for  solving  the  model,  if  existing  solution  tech- 
niques are  inappropriate.  A computerized  data  base  and  an  in- 
teractive, conversational  program  will  also  be  developed.  The 
final  output  of  this  phase  will  be  the  development  of  an  optimal 
course  scheduling  methodology. 


USER'S  GUIDE 


The  purpose  of  this  appendix  is  to  provide  the  user  with  a 
guide  on  how  to  implement  and  modify  the  ACSS  if  the  school 
operates  differently  from  some  of  the  assumptions  made  in  the 
system.  The  user  is  assumed  to  have  some  familiarity  with  the 
operation  of  a Wang  2200  system  with  a dual  floppy  diskette  drive. 
The  user's  guide  is  divided  into  two  parts,  the  implementation 
guide  and  the  operating  guide.  The  former  is  provided  to  help  the 
user  in  system  verification,  initialization,  and  modification;  and 
the  latter  addresses  itself  to  the  step-by-step  use  of  the  system. 

IMPLEMENTATION  GUIDE 

As  mentioned  earlier,  the  ACSS  is  packaged  in  two  floppy 
diskettes.  When  the  system  is  used  the  first  time,  it  is  rec- 
ommended that  the  contents  of  the  diskettes  be  verified  as  shown 
in  Figures  A-l  and  A-2  by  entering  the  LIST  DC  command. 

INITIALIZATION 

The  system  has  been  initialized  for  a capacity  of  600  courses 
in  the  Data  Base.  However,  sometimes  files  contain  erroneous 
information  that  cannot  be  eliminated  by  any  means.  The  user  is 
recommended  to  re- ini tial ize  them. 

CORSF101  and  CORSK101  are  the  course  file  and  the  key  file, 
whereas  CORS.DEL  is  a data  file  keeping  the  CDP  number  of  the 
course  deleted  in  the  course  key  file.  Thus,  if  any  of  the  three 
files  is  in  error,  all  of  them  must  be  reinitialized.  CORS.DEL  is 
r e- in i t i al i zed  by  loading  and  executing  DEL.CORS.  To  re-ini t ial i ze 
CORSF101  and  CORSK101,  the  user  has  to  mount  the  ISS  Initializa- 
tion Utilities  diskette,  load  the  START  Program,  and  answer  the 
questions  displayed  on  the  screen  exactly  the  same  as  in  Figure 
A-3 . In  the  process,  the  user  is  asked  to  verify  the  spec- 
ifications of  the  course  file.  If  incorrect,  enter  "N"  at  the 
question:  "ARE  FILE  SPECIFICATIONS  OK?"  The  system  is  ready  to 
respecify  the  course  file.  At  the  end,  a correct  hard  copy  of  the 
file  specifications  is  printed  out,  as  shown  in  Figure  A-4. 

PLOTF101  and  PLOTK101  are  the  plot  data  file  and  the  plot  key 
file.  PLOT. DEL  contains  the  CDP  number  of  the  courses  deleted  in 
the  schedule  key  file.  Like  the  course  file,  these  three  files 
must  also  be  re- in i t ial  i zed  when  any  one  of  them  contains  errors. 
Load  and  run  DEL. PLOT  to  re- ini tial i ze  PLOT. DEL.  Follow  the  same 
procedure  as  in  the  r e- in i t ial izat ion  of  the  course  file  and 
answer  the  questions  exactly  the  same  as  in  Figure  A-5.  The 
verification  of  the  plot  file  specifications  is  similar  to  that  of 
the  course  file,  and  correct  file  specifications  are  as  shown  in 
Figure  A-6. 
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ENTER  USER  FILE  NAME  C0RSF101 
DEVICE  ADDRESS  FOR  USER  FILE  BIO 
IS  USER  FILE  CATALOGED  N 
KEY  FILE  NUMBER  1 
DEVICE  ADDRESS  FOR  KEY  FILE  BIO 
IS  KEY  FILE  CATALOGED  N 
RECORD  TYPE  A 
LOGICAL  RECORD  LENGTH  126 
BLOCKING  FACTOR  2 
KEY  LENGTH  4 
STARTING  POSITION  OF  KEY  3 
ESTIMATED  NUMBER  OF  RECORDS  600 
ARE  FILE  SPECIFICATIONS  OK  Y 
HARD  COPY  PRINTOUT  Y 


Figure  A-3.  Re-initialization  of  the  Course  file 


DATA  FILE  NAME  SCHEF101  KEY  FILE  NAME  SCHEK101 

DEVICE  ADDRESS  310  DEVICE  ADDRESS  301 

RECORD  TYPE  A KEY  FILE  NUMBER  1 

RECORD  LENGTH  126  KEY  LENGTH  4 

BLOCKING  FACTOR  2 KEY  POSITION  3 

NO.  OF  SECTORS  302  NO.  OF  SECTORS  36 


Figure  A-4.  Specifications  of  the  Course  file. 


ENTER  USER  FILE  NAME 
DEVICE  ADDRESS  FOR  USER  FILE 
IS  USER  FILE  CATALOGED 
KEY  FILE  NUMBER 
DEVICE  ADDRESS  FOR  KEY  FILE 
IS  KEY  FILE  CATALOGED 
RECORD  TYPE 
KEY  LENGTH 

STARTING  POSITION  OF  KEY 
ESTIMATED  NUMBER  OF  RECORDS 
ARE  FILE  SPECIFICATIONS  OK 
HARD  COPY  PRINTOUT 


PLOTF101 

BIO 

N 

1 

BIO 

N 

N 

4 

1 

600 


Figure  A-5.  Re- in i t ial i za t ion  of  the  Plot  File. 


DATA  FILE  NAME  PLOTF101  KEY  FILE  NAME  PLOTK101 

DEVICE  ADDRESS  310  DEVICE  ADDRESS  310 

RECORD  TYPE  N KEY  FILL  NUMBER  1 

RECORD  LENGTH  1 KEY  LENGTH  4 

(SECTORS)  KEY  POSITION  0 

NO.  OF  SECTORS  602  NO.  OF  SECTORS  36 

Figure  A-6.  Specifications  of  the  plot  File. 
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OPERATING  GUIDE 

The  information  provided  below  is  designed  to  familiarize  the 
user  with  the  operation  of  the  ACSS.  In  the  guide,  a step-by-step 
operating  procedure  is  outlined,  followed  by  examples  for  il- 
lustrating the  operating  procedures. 

OPERATING  PROCEDURE 

The  procedure  to  be  outlined  below  involves  such  steps  as 
setting  up,  running,  creating,  and  maintaining  a data  base,  asses- 
sing feasibility,  printing  work  sheets,  and  printing  and  editing 
course  schedules.  While  the  first  two  steps  must  be  performed  in 
that  order,  the  other  steps  can  be  executed  randomly;  however  they 
are  numbered  for  convenience  of  discussion. 

STEP  1:  SET  UP  ACSS 

Mount  the  Schedule  Management  Program  diskette  into  disk 
drive  310  and  the  Schedule  Management  Data  Base  diskette  into  disk 
drive  BIO.  (Note:  These  disk  assignments  can  be  modified  by 
changing  the  SELECT  statements  in  the  SCHEDULE  program.) 

STEP  2:  RUN  ACSS 

Load  the  SCHEDULE  program  from  the  program  diskette  into  the 
CPU  (Central  Processing  Unit)  memory.  After  a few  seconds  of 
pause,  the  NAVAL  TRAINING  MANAGEMENT  System  Control  Menu  is 
displayed  on  the  screen.  The  menu  shown  in  Figure  A-7  is  to  be 
referred  to  as  the  System  Control  Menu  in  the  discussion.  Upon 
entering  the  desired  function  code  as  called  for  on  the  menu,  the 
desired  module  is  loaded  and  ready  for  processing. 

In  the  ACSS,  three  special  function  routines  are  provided  to 
facilitate  system  interruptions.  At  any  point  in  processing, 
depressing  special  function  0 (S.F.O.)  key  will  terminate  the 
entire  processing.  If  further  use  of  the  ACSS  is  desired,  clear 
the  CPU  memory  and  reload  the  SCHEDULE  program.  To  terminate 
current  operation  and  return  to  the  System  Control  Menu,  depress 
S.F.l.  Similarly,  to  terminate  current  processing  and  return 
control  to  the  same  module,  touch  S.F.2. 

STEP  3:  MAINTAIN  COURSE  DATA  BASE 

To  create  and  maintain  the  course  data  base,  the  function 
code  "1"  is  entered  on  the  System  Control  Menu.  After  the  Data 
Base  Maintenance  Menu  shown  in  Figure  A-8  is  displayed,  the  user 
can  look  up  the  data  of  a specific  course,  make  changes  to  course 
data,  add  new  courses,  delete  undesired  courses,  and  examine  the 
course  file  in  the  data  base.  To  terminate  data  base  maintenance, 
the  function  code  "6"  is  keyed  in.  The  control  returns  to  step  2, 
and  the  System  Control  Menu  is  displayed.  Figure  A-9  shows  the 
course  data  input  formats. 
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NAVU  TRAINING  SCHEDULE  MANAGEMENT 


THIS  SYSTEM  WILL  PERFORM  THE  FOLLOWING 

1 - MAINTAIN  DATA  BASE 

2 - SCHEDULE  FEASIBILITY  STUDY 
J - PRINT  SCHEDULE  WORK  SHEET 
4 - PLOT  SCHEDULE 

ENTER  CODE  FOR  DESIRED  FUNCTION? 

Figure  A- 7.  System  Control  Menu. 


DATA  BASE  MAINTENANCE  MENU 

CODE  FUNCTION 

1 - DISPLAY  COURSE  DATA 

2 - CHANGE  COURSES 

3 - ADD  COURSES 

4 - DELETE  COURSES 

5 - DISPLAY  COURSE  FILE 

6 - END  OF  PROCESSING 
ENTER  FUNCTION  CODE? 


Figure  A-S.  Data  Base  Maintenance  Menu. 


STEP  4:  PERFORM  FEASIBILITY  STUDY 

To  perform  the  feasibility  study  of  a course,  the  function 
code  "2"  is  entered  on  the  System  Control  Menu.  When  the  system 
is  ready,  the  user  is  asked  to  input  the  CDP  number  of  the  course 
for  which  feasibility  is  to  be  assessed.  Along  with  other  perti- 
nent data,  the  rest  ts  of  the  instructor  and  trainer  requirement 
calculations  as  exemplified  in  Figure  A-10  are  displayed.  By 
comparing  the  available  resources  with  the  required  ones,  the  user 
may  evaluate  the  feasibility  and  make  a number  of  trials  to  deter- 
mine a feasible  schedule,  if  the  calculated  schedule  was  in- 
feasible. At  the  end  of  each  feasibility  evaluation,  the  user  may 
choose  to  use  other  modules  by  depressing  S.F.l. 

STEP  5:  PRINT  SCHEDULE  WORK  SHEETS 

To  print  schedule  work  sheets,  the  function  code  "3"  is 
entered  on  the  System  Control  Menu.  When  the  system  is  ready,  the 
user  is  asked  to:  (1)  compile  the  courses  to  be  printed  out  on 
the  work  sheets,  (2)  specify  where  to  print--on  the  screen  or  on 
the  line  printer.  A sample  work  sheet  is  shown  in  Figure  A-ll. 
After  finishing  with  the  module,  the  control  returns  to  Step  2 and 
the  System  Control  Menu  again  is  displayed. 

STEP  6:  PRINT  COURSE  SCHEDULES 

To  print  course  schedules  for  documentation  and  dissemination 
the  function  code  "4"  is  entered  on  the  System  Control  Menu.  The 
user  is  instructed  to  key  in  the  CDP  numbers  of  the  courses  for 
which  schedules  are  to  be  generated.  Figure  A-12  is  a sample 
schedule  of  a course.  On  the  schedule,  the  course  identification 
and  other  pertinent  data  are  printed  on  the  top  of  the  schedule, 
followed  by  the  beginning  and  ending  dates  of  the  50  training 
weeks  for  the  planning  year.  If  one  convening  is  scheduled  in 
the  week,  it  is  so  indicated  under  session  1 or  2 in  that  week. 
Two  convenings  may  be  scheduled  in  the  same  week.  At  the  end  of 
the  processing,  the  control  returns  to  step  2 and  the  System 
Control  Menu  is  displayed. 
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Course  File 


Field  Name 

Data  T 

CDP 

A4  * 

CIN 

A8 

Course  Snort  Title 

A18 

Planned  Input 

15** 

Class  Size 

12 

Course  Length  in  Weeks 

12 

Contact  Ratios 

13 

Contact  Hours 

14 

Manpower  Allowances 

13 

Other  Instructors  Available 

13 

No.  of  Trainers  Available 

12 

Support  Required 

12 

Support  MPA 

12 

*A4  means  a field  of  4 alphanumeric  characters. 
**I5  means  a field  of  5 integer  numeric  digits. 

Figure  A-y.  Course  Data  Input  Formats. 


FEASIBILITY  STUDY  FOR  A0000018 


CDP 

TITLE 

WKS  DAYS 

INPUT 

AOB 

0 00A 

DATA 

TESTING 

11  75 

150 

30.82 
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SKED 

CONV 
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INSTRUCTOR 
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SIZE 
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FREQ 

CLASS 

REQ  MPA  OTHER 

REQ  MPA 

REQ  AVL 

10 

15 

3.33 

3.30 

1 01  003 

02  02 

2 01 

WANT  TO  ALTER  INPUT  OR  CLASS  SIZE  (Y  OR  N) ? 

Figure  A-10.  Feasibility  Study  Sample  Output. 
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3!  19 


CDP  1311 


150!  7.80'  10!  15!  3.33!  0.90!  31!  3!  003  !03 


CIN  K 3G0038  ' CRS  TITLE  NTDS  DATA  UTIL 


3!  19 


CDP  1317 


100!  5.30'  10'  10!  5.00!  O.GO!  4!  3'  003  !03 


:==  = r.  = 2 = sr  = = = = = rr  = = = = = = s=3reaa: 


CIN  J €-44091 1 ' CRS  TITLE  SURF  NUWPNS  PR 


3!  19 


CDP  1370 


lOO'  5.30' 


CIN  A4 3 1 OO 1 i 


10'  5.00'  O.GO'  1'  3'  003  '03 


' CRS  TI  I'LL  EDO  PASIC  SURF 


3!  19 


lOO!  5.30'  10!  10'  5.00'  O.GO'  9'  3!  003  !03 


Figure  A-ll.  Course  Schedule  Work  Sheet  Sample  Output 


CD?  / C1N  

CRS  TITLE 

CUB  LEN  (WKS/DAYS) 
INPUTS  / CLASS  SIZ 


14  JAN  S 

1 5 JAN  1 5 
1G  JAN  25 

1 7 JAN  29 

1 8 FEB  5 

19  FEB  12 

20  FEB  20 

21  FEB  2b 

22  MAR  5 

23  MAR  12 

24  MAR  19 
23  MAR  2b 
2b  APR  2 

27  APR  9 

28  APR  lb 

29  APR  23 

30  APR  JO 

31  MAY  7 

32  MAY  13 

33  MAY  21 

34  MAY  29 

35  JUN  4 
3b  JUN  1 1 

37  JUN  18 

38  JUN  25 

39  JUL  2 

40  JUL  9 

41  JUL  lb 

42  JUL  23 

43  JUL  30 

44  AUG  b 

45  AUG  13 
4b  Al  12  20 
4 7 Al  J<, . 2 7 

48  St.  P 4 

49  SLP  10 

50  SLP  l 7 


JAN  12  

JAN  19  

JAN  2b  JAN  22 

FEB  2 

FEB  9 

FEB  lb  

FEB  23  

MAR  2 FEB  2b 

MAR  9 

MAR  lb  

MAR  23  

MAR  30  

APR  b APR  2 

APR  13  

APR  20  

APR  27  

MAY  4 

MAY  1 1 MAY  7 

MAY  1 8 

MAY  25  

JUN  1 

JUN  8 

JUN  15  JUN  11 

JUN  22  

JUN  29  

JUL  b 

JUL  13  

JUL  20  JUL  lb 

JUL  27  

AUG  3 

AUG  10 
AUG  17 

AUG  24  AUG  20 

AUG  31 

SEP  7 

SEP  l'l 

SEP  21 


Course  Schedule  Plot  Sample  Output 


In  some  parts  of  the  system,  fatal  error  messages  are  sup- 
plied and  instructions  are  provided  to  restart  execution.  In  the 
plot  module,  for  instance,  when  execution  is  in  error,  the  follow- 
ing may  be  displayed  on  the  screen: 

************************************************** 

* EXECUTE  THE  FOLLOWING  COMMANDS  TO  RESTART:  * 

* : CLEAR  V (RETURN  (EXEC))  * 

* : CLEAR  P (RETURN  (EXEC))  * 

* : LOAD  DCT  #0,  SCHEDULE  (RETURN  (EXEC))  * 

* : RUN  (RETURN  (EXEC))  * 

* ENTER  COMMANDS  NOW....  * 

************************************************** 

Entering  commands  as  instructed  in  the  above  box  will  lead  to 
loading  of  the  SCHEDULE  Program  and  returning  to  the  system  main 
control . 

AN  ILLUSTRATION 

In  the  preceding  discussion,  the  operation  of  the  ACSS  was 
outlined.  The  text  that  follows  provides  detailed  examples  on  how 
the  system  is  used.  Note  that  the  sequence  of  the  presentation 

assumes  that  the  Course  Data  Base  has  not  been  created.  In  actual 

use,  the  user  can  execute  any  logical  steps  and  need  not  follow 
the  same  sequence  as  presented.  For  ease  of  reading,  system 
inputs  and  responses  are  enclosed  in  boxes. 

SET  UP  AND  RUN  ACSS 

Mount  the  Schedule  Management  Program  diskette  into  disk 
drive  310  and  the  Schedule  Management  Data  Base  diskette  into  disk 
drive  BIO.  Enter  the  following. 

******************************************** 

* : LOAD  DCF  " SCHEDULE"  (HIT  RETURN  KEY)  * 

* : RUN  (HIT  RETURN  Key)  * 


Tne  system  will  respond  with 


* TRAINING  SCHEDULE  PROGRAM 

* SYSTEM  NOW  LOADING  COMMON  KFAM  ROUTINE 

* PROGRAM  BEING  LOADED  > COMMKFAM 
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There  will  be  a slight  pause  while  the  program  is  being 
loaded.  When  completed,  the  following  will  be  displayed  on  the 


screen : 


********************************************* 

* NAVAL  TRAINING  SCHEDULE  MANAGEMENT  * 

* * 

* THIS  SYSTEM  WILL  PERFORM  THE  FOLLOWING  * 

* 1 - MAINTAIN  DATA  BASE  * 

* 2 - SCHEDULE  FEASIBILITY  STUDY  * 

* 3 - PRINT  SCHEDULE  WORK  SHEET  * 

* 4 - PLOT  SCHEDULE  * 

* ENTER  CODE  FOR  DESIRED  FUNCTION?  * 

********************************************* 

Suppose  the  course  data  file  is  empty.  To  create  a course 
file,  we  need  to  enter  "1"  and  hit  RETURN  key. 

MAINTAIN  COURSE  DATA  BASE 

After  hitting  the  RETURN  key,  the  following  will  be 
displayed : 

************************************************ 

* SYSTEM  NOW  LOADING  DATA  BASE  MAINT.  ROUTINE  * 

* PROGRAM  BEING  LOADED  > SCH.BASE  * 

************************************************ 

After  a few  seconds  of  pause,  the  screen  will  display: 

************************************* 

* DATA  BASE  MAINTENANCE  MENU  * 

* CODE  FUNCTION  * 

* 1 - DISPLAY  COURSE  DATA  * 

* 2 - CHANGE  COURSES  * 

* 3 - ADD  COURSES  * 

* 4 - DELETE  COURSES  * 

* 5 - DISPLAY  COURSE  FILE  * 

* 6 - END  OF  PROCESSING  * 

* ENTER  FUNCTION  CODE?  * 

************************************* 

ADD  COURSES 

Since  we  would  like  to  create  a course  file,  we  enter  "3"  and 
hit  the  RETURN  key. 

*************************** 

* ENTER  CDP  TO  BE  ADDED?  * 

*************************** 


After  inputing  a desired  CDP  number, the  inputs  for  a course 
titled  "BU/HEAVY  CONST"  may  look  like 


mm. 
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ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 

ENTER 


CDP? 

CIN? 

COURSE  SHORT  TITLE? 
PLANNED  INPUT? 

CLASS  SIZE? 

COURSE  LENGTH  IN  WEEKS? 
NO.  OF  PHASES? 


0111 
A7100018 
BU/HEAVY  CONST 
100 
10 
1 
1 


LECTURE  RATIO  AND  HOURS  FOR  FIRST  PHASE  (R  , H ) ? 25,10 
MAN  POWER  ALLOWANCES?  2 
OTHER  INSTRUCTORS  AVAILABLE?  2 
NO  OF  TRAINERS  AVAILABLE?  2 
NO  OF  SUPPORT  REQUIRED  AND  MPA?  2,2 


(Note:  Figure  A-9  shows  the  course  data  input  formats.) 

The  system  will  then  ask  if  any  more  courses  are  to  be  added  with 
the  following  display: 

******************************** 

* WANT  TO  ADD  ANOTHER  COURSE?  * 

******************************** 

We  may  add  courses  by  entering  "Y"  and  the  system  will  pose  the 
same  set  of  questions  for  data.  Suppose  we  have  entered  a number 
of  courses  and  suspect  keying  in  some  erroneous  data  in  a course, 
for  instance,  "BU/HEAVY  CONST."  When  we  enter  "N,"  the  system  will 
display  the  Data  Base  Maintenance  Menu  again. 


LOOK  UP  COURSES 

After  we  enter  "] 
look  up  the  course 
display: 


' and  subsequently  the  CDP 
data  for  "BU/HEAVY  CONST,' 


key  "0111"  to 
the  screen  will 


ENTER  CDP  TO  BE  LOOKED  UP?  0111 


* DATA  FOR  A7100018  TITLE  > BU/HEAVY  CONST  * 

* PLANNED  INPUT  100  CLASS  SIZE  10  LENGTH (WKS)  1 * 

* MAN  POWER  ALLOWANCES  002  INSTRUCTORS  003  TRAINERS  02* 

* SUPPORT  02  MPA  02  * 

"CONTACT  RATIO/HOURS  (025/0010) , (000/0000) , (000/0000) , (000,0000) * 

* (000/0000) , (000/0000) , (000/0000)  * 


We  may  check  out  as  many  courses  as  we  desire. 

CHANGE  COURSE  DATA 

Suppose  the  planned  input  for  "BU/HEAVY  CONST"  should  be  150 
instead  of  100.  To  make  such  changes,  we  have  to  enter  function 
code  "2."  After  entering  the  code  and  the  CDP  key,  the  system  will 
respond : 
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' ENTER  CDP  TO  BE  LOOKED  UP?  0111 


DATA  FOR  A7100018 

PLANNED  INPUT  100  CLASS  SIZE  10  LENGTH (WKS ) 1 * 

MAN  POWER  ALLOWANCES  002  INSTRUCTORS  003  TRAINERS  02  * 

SUPPORT  02  MPA  02  * 

CONTACT  RATIO/HOURS  (025/0010) , (000/0000) , (000/0000) , (000/0000) * 

(000/0000) , (000/0000) , (000/0000)  * 


TITLE  > BU/HEAVY  CONST 


LENGTH (WKS)  1 
TRAINERS  02 


* KEY*  DATA  ITEM 

* * 


* 1 * CDP 

* 4 * PLANNED  INPUT 

* 7 * CNTCT  RAT/ HRS 

* 10  * OTHER  INSTRS 

* ENTER  CHANGE  KEY? 

********************1 


DATA  ITEM 


CIN 

CLASS  SIZE 

TRAINERS 

SUPPORT 


KEY* 

* 


DATA  ITEM 


CRS  TITLE 
CRS  LEN  (WKS) 
MAN  POWER 
NO  CHANGES 


Clearly,  we  should  key  in  "4."  The  system  will  ask  us  to  enter  the 
new  planned  input.  Other  changes  may  be  made  to  the  course  or 
another  course. 


EXAMINE  COURSES  IN  COURSE  FILE 

Suppose  we  want  to  examine  what  the  course 
This  is  done  by  entering  the  function  code  "5.1 
display  14  courses  at  a time  and  ask  to  continue, 
look  like  the  following: 

*************************************** 


file  contains. 
The  system  will 
The  screen  may 


ENTER  FUNCTION  CODE?  5 
COURSES  IN  COURSE  FILE  (CDP /TITLE) 
0111  / A7 100018  / BU/HEAVY  CONST 
0115  / A7802037  / DC/P250  PMP  REP 
0125  / J7800400  / DIV  DC  PU 
0152  / A 4E0045  / EOD  RES  ING 
0180  / A 2F0020  / SWS  WEP  OFF  POS 


0125  / J7800400 


0152  / 
0180  / 
0201  / 
0218  / 
0273  / 
0286  / 
0307  / 
0310  / 

0327  / 

0328  / 


/ A 4E0045 
/ A 2F0020 
/ A 4N0017 
/ A 4N0013 
/ A 4N0018 
/ A5510059 


0307  / A 2E0010 
0310  / A 4F0010 

0327  / A 000111 

0328  / A 000112 
0335  / A5510055 


/ DIV  DC  PU  * 
/ EOD  RES  ING  * 
/ SWS  WEP  OFF  POS  * 
/ SALV  INDOC  * 
/ ENG  DIV  OFF  * 
/ TREAT  DIV  CASUAL  * 
/ TECH  PUB  MATL  ID  * 
/ TAR  PCO/PXO  * 
/ MGL  INDOC/RESOFF  * 
/ SWO  ADV  COMMAND  * 
/ SWO  ADV  EXEC  * 
/ INVENTORY  MGMT  * 


* WANT  TO  CONTINUE  DISPLAYING?  Y * 

* 0 33C  / A55100S0  / FINANCIAL  MGMT  * 

* 0348  / A 2A0013  / HELO  MCM  FAM  * 

*************************************** 


' • *7 
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DELETE  COURSES 

If  we  want  to  delete  courses,  we  can  do  it  by  entering  the 
function  code  ”4"  and  then  entering  their  CDP  keys  one  at  a time. 

TERMINATE  data  base  maintenance 

When  we  have  completed  Data  Base  creation  and  maintenance,  we 
can  proceed  by  entering  the  function  code  "6."  After  a few  seconds 
of  pause,  the  system  will  respond  with  the  System  Control  Menu. 

PERFORM  FEASIBILITY  STUDY 

On  entering  the  code  "2,"  the  system  will  be  ready  to  help 
perform  feasibility  study.  The  following  display  is  an  example  of 
a course  entitled  "DATA  TESTING": 


* 

FEASIBILITY 

STUDY  FOR  A00000 1 8 

* 

* 

CDP 

TITLE 

WKS  DAYS 

INPUT 

AOB 

* 

* 

000A 

DATA  TESTING 

11  75 

150 

30.82 

* 

CLASS  SKED 

CON V C/C 

INSTRUCTOR 

SUPPORT 

TRAINERS 

* 

* 

SIZE  CLASS 

FREQ  CLASS  REQ 

MPA  OTHER 

REQ  MPA 

REQ  AVL 

* 

10  15 

3.33  3.30 

1 

01  003 

02  02 

2 01 

* * 


* WANT  TO  ALTER  INPUT  OR  CLASS  SIZE  (Y  OR  N)?  * 


After  examining  the  display,  for  instance,  we  have  found  that 
one  trainer  is  not  enough  to  offer  concurrent  classes  of  3.30. 
Thus,  a decrease  in  planned  input  or  an  increase  in  class  size  or 
a combination  of  them  need  to  be  made.  The  system  allows  us  to 
make  a number  of  trials  to  determine  a feasible  schedule. 

PRINT  SCHEDULE  WORK  SHEETS 

By  entering  the  code  "3"  on  the  System  Control  Menu,  we  can 
display  schedule  work  sheets  on  the  screen  or  print  them  on  the 
line  printer  for  files.  A sample  printout  is  shown  in  A-13. 

PRINT  SCHEDULE  PLOTS 

To  print  course  plots,  the  code  "4"  on  the  System  Control 
Menu  is  keyed  in.  The  system  will  prompt  us  with  what  courses  to 
be  plotted.  We  can  specify  either  all  courses  or  part  of  them  to 
be  plotted.  A sample  schedule  plot  is  shown  in  A-14. 
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CQUKSE 


iCHEOUL-ie  WORK  SHE1E1 


CRS  LEN 


WKS'DAYS 


CDP  2008 


3!  19 


CDP  DO IS 


2!  12 


CDP  20 1Z 


3!  19 


CDP  2045 


1 ! 5 


CDP  2052 


2!  12 


CDP  205 Y 


2 ! 12 


CDP  206L 


CDP  2079 


CDP  2111 


2'  12 


CDP  2121 


2'  12 


INPUT 


CLASS! SHED  ! CONV 
SIZE  ! CLASS' FREQ 

_____ i _____ i _____ 


INS!  RUCTGR 

C/C  ! 

CLASS  * REQ ' MPA ! 01  HER 

===== i = = = * = = = ' ===== 


CIN  J0610611  ! CRS  TITLE  DD963  SHP  CONC 


100!  5.20! 


CIN  AO 120023 


10!  5.00'  0.60!  1!  2! 


CRS  TITLE  INST  5PBD 


150!  4.93! 


CIN  A1 01 0085 


15'  3.33!  0.60!  2!  2! 


CRS  TITLE  AN/SSR-1  MAINT 


10O!  5.20' 


CIN  A 1300026 


10!  5.00!  0.6C!  1!  2! 


CRS  TITLE  BQC-4/4A  CMB  M 


100!  1.36! 


CIN  C60 13741 


10!  5.00'  0.20'  10!  2! 


CRS  TITLE  RA5C  P/P  REL  S 


lOO!  3.28' 


CIN  K2330066 


10!  5.00!  0.40!  3*  2! 


CRS  TITLE  SUB  EW  OP-ADV 


100'  3.23' 


CIN  A 8C0025 


10'  5.00!  0.40'  1!  2! 


CRS  TITLE  MILSTAMP/DSAND 


1 OO  ' t . Jfc. ! 


CIN  K221000 / 


10!  5.00*  0.20'  1!  2! 


CRS  TITLE  AIC  DUAL 


lOO'  3.28! 


CIN  A 8C0010 


10!  5.00!  0.40!  15!  2! 


CRS  TITLE  TRANS  MCMT  I NT 


100!  3.28! 


CIN  A6700025 


10!  5.00!  0.40!  1!  2! 


CRS  TITLE  PREC  PHY  MEAS 


100!  3.28' 


10!  5.00!  0.40'  9!  2! 


SUPPOR ( ' TRANERS 


REQ ! MPA 


02  '02 


02  ! 02 


REQ ' AVL 


1 '02 


1 ! 02 


02  ! 02  ! 1 ! 02 


02  ! 02 


02  ! 02 


02  ! 02 


02  ! 02 


1 ! 02 


1 ! 02 


1 '02 


1 '02 


02  ! 02 


02  '02 


02  ! 02 


1 ! 02 


1 ! 02 


1 ! 02 


Figure  A-13.  Course  Schedule  Work  Sheet 


CLIP  / CIN > 

CRB  TITLE > 

CRS  LEN  < WKS/DAYS)  . > 
INPUTS  / CLASS  SIZ  . > 


0111  / A 7100018 

BU/HEAVY  CONS  f 
1 / 5 

60  / 1 


WEEK  DAY  SESSION  1 


BEG 

- 

END 

BEG  - 

END 

1 

OCT 

2 

- 

OCT 

6 

OCT 

2 

- 

OCT 

6 

2 

OCT 

10 

- 

OCT 

13 

OCT 

10 

- 

OCT 

13 

3 

OCT 

16 

- 

OCT 

20 

OCT 

16 

- 

OCT 

20 

4 

OCT 

23 

- 

OCT 

27 

OCT 

23 

- 

OCT 

27 

5 

OCT 

30 

- 

NOV 

3 

OCT 

30 

- 

NOV 

3 

6 

NOV 

6 

- 

NOV 

9 

NOV 

6 

- 

NOV 

9 

7 

NOV 

13 

- 

NOV 

17 

NOV 

13 

- 

NOV 

17 

a 

NOV 

20 

- 

NOV 

24 

NOV 

20 

- 

NOV 

24 

3 

NOV 

27 

- 

DEC 

1 

NOV 

27 

- 

DEC 

1 

10 

DEC 

4 

- 

DEC 

8 

DEC 

4 

- 

DEC 

8 

11 

DEC 

11 

- 

DEC 

15 

DEC 

11 

- 

DEC 

15 

12 

DEC 

18 

- 

DEC 

22 

DEC 

18 

- 

DEC 

22 

13 

JAN 

2 

- 

JAN 

5 

JAN 

2 

- 

JAN 

5 

14 

JAN 

8 

- 

JAN 

12 

JAN 

8 

- 

JAN 

12 

15 

JAN 

15 

- 

JAN 

19 

JAN 

15 

- 

JAN 

19 

16 

JAN 

22 

- 

JAN 

26 

JAN 

22 

- 

JAN 

26 

17 

JAN 

29 

-- 

FEB 

2 

JAN 

29 

- 

FEB 

2 

18 

FEB 

5 

- 

FEB 

9 

FEB 

5 

- 

FEB 

9 

19 

FEB 

12 

- 

FEB 

16 

FEB 

12 

- 

FEB 

16 

20 

FEB 

20 

- 

FEB 

23 

FEB 

20 

- 

FEB 

23 

21 

FEB 

26 

- 

MAR 

2 

FEB 

26 

- 

MAR 

2 

22 

MAR 

5 

- 

MAR 

9 

MAR 

5 

- 

MAR 

9 

23 

MAR 

12 

- 

MAR 

16 

MAR 

12 

- 

MAR 

16 

24 

MAR 

19 

- 
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23 

MAR 

19 

- 
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23 

25 
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26 

- 

MAR 

30 
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26 

- 
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30 

26 

APR 

2 

- 

APR 

6 
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2 

- 
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6 

27 
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9 

- 

APR 

13 
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9 

- 
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13 

28 

APR 
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- 
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20 

APR 

16 

- 

APR 

20 

29 

APR 

23 

- 

APR 

27 

APR 

23 

- 

APR 

27 
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APR 

30 

- 

MAY 
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- 

MAY 

4 

31 

MAY 

7 

- 

MAY 

11 

MAY 

7 

- 

MAY 

11 

32 

MAY 
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MAY 

18 

MAY 

14 

- 

MAY 

18 
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- 
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16 

- 
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31 

48 

SEP 
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- 

SEP 

7 
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-- 

SEP 
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10 
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SEP 

14 

50 

SL-.P 
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Figure 

SEP 
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Sched 

DAY  SESSION  2 
BEG  - END 


OCT  2 - OCT  6 


NOV  6 - NOV  9 


DEC  11  - DEC  15 


JAN  PR  - JAN  26 


FEB  26  - MAR  2 


APR  2 - APR  6 


MAY  7 - MAY  11 


JUN  11  - JUN  15 


JUL  16  - JUL  20 


AUG  20  -•  AIJG  2 A 


ale  Plot 


SCHEDULE  Syst em 


C SCHEDULE  > 


I 


i 


i 


100 

no 

120 

130 

140 


z«# 

REM 

REM 

REM 

REM 


PROGRAM  > SCHEDULE  MANAGEMENT  < SCHEDULE)  VERSION  1.0  7B0S30 


150 

REM 

« 

* 

150 

REM 

* 

TRAINING  SCHEDULE  MANAGEMENT 

* 

170 

REM 

* 

WRITTEN  BY 

* 

180 

REM 

* 

Phil  Cool.e 

•* 

190 

REM 

* 

Ben  Lin 

* 

210 

REM 

* 

Chuck  Cuitard 

* 

220 

REM 

* 

* 

230 

240 

250 

250 

270 


REM 

REM 

REM 

REM 

REM 


280 

REM 

*Hf 

This  Prooram 

will 

create  and  maintain  a Train 

290 

REM 

*■* 

Mangement 

Da-ta  Base. 

300 

REM 

** 

310 

REM 

This  Prooram 

will 

alow 

compute  and  display  a 

320 

REM 

*-* 

schedule 

work 

: sheet  and 

plot  schedule  chart. 

330 

REM 

*■* 

340 

REM 

■** 

Description 

of 

Variables 

\ 

350 

REM 

** 

350 

REM 

■IHf 

C1S<2) 

4 

D 

RECORD  ID-  CDP 

370 

REM 

** 

N1 S < 2) 

8 

D 

CIN 

380 

REM 

*■* 

TS<2> 

18 

D 

COURSE  TITLE 

390 

REM 

** 

1 1S(2) 

5 

D 

PLANNED  INPUT 

400 

REM 

** 

C2S<2) 

2 

D 

CLASS  SIZE 

4X0 

REM 

** 

WS  (2) 

2 

D 

COURSE  LENGTH  (WKS) 

420 

REM 

** 

RS<2.7) 

3 

D 

CONTACT  RATIOS 

430 

REM 

■IMf 

HS  (2.7) 

4 

D 

CONTACT  HOURS 

440 

RLM 

** 

Ml S ( 2 ) 

3 

D 

MAN  POWER 

450 

REM 

*-* 

I9S<2> 

3 

D 

INSTRUCTORS 

4€0 

REM 

** 

E 1 S ( 2 ) 

2 

D 

TRAINERS 

470 

REM 

** 

S1S(2) 

2 

D 

SUPPORT 

480 

MEM 

** 

S2S<  2) 

2 

D 

MPA 

490 

REM 

** 

W2 

COURSE  LENGTH  (DAYS) 

500 

REM 

** 

D 

AOB 

510 

REM 

<Hf 

course 


520 

530 

540 

550 

SEO 

570 

580 

590 

€.00 

€•10 

€.20 

€■30 

€-40 

€•50 

€•€•0 

€70 

580 


REM 

REM 

REM 

REM 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

REM 

REM 

REM 

COM 

COM 


DEE INE  KFAM  COMMON  VARIABLES 


V7SF7.  I OS  7 . V9.  VOS  <3)2. T 1 (3) 

VOS2 . Vl«Sf V2S2 . V3S2. V4S2 . V5* 1 

02S2.03S2.V541 . V8S1 . T5S30. T7S30 

TO. T9. T2S2. T4S3. 72. V8. TS.  T1 . T8S1 . 72S<8>2. 

T4.T5.V5.V7.V1 

O. OS 1 . T9S2. 7 0S < 4 >50 

V7S (3)8. 04S2 . 09S2 . QOS  < 4 ) CO 

T6S1 . T3S3. T1S< 1 )2.T3S<1 ) 33. V9S2. T 1 S30 


T(8) 


DEFINF.  PROGRAM  COMMON  VARIABLES 


C.tS<2)4.  TS<2)  18.  I IS (2) 5.  C24<  2)2.  RS(2.  7)3.S8S<2.  50)1  .N1S( 2)8 
US <2. 7) 4. MIS (2) 3. I9S<2) 3. E1S ( 2 >2. S1S< 2) 2. S2S< 2 )2. D1S < 250) 3 


35 


€•30  COM  Il(l)fC2(l).W(l).R(1.7>fHt...7).Ml(l).I9(l).El(l>rW*<2>2 
700  COM  Sl(l).S2(l).C3(l).C4(l).W2(l).b(l).Fi*B.F2*8.F3*B.F4*8 
710  COM  12(1). 13(1). C5(l).  C€><  1 ) . E3<  1 ) . M2(  1)  • Ml  < 1 ) . S(  1 ) . E*E4 
720  REM 

730  REM  INITIALIZE  DISK  DEVICE  TABLE 

740  REM 

750  SELECT  DISK  310  : REM  SEL  SYSTEM  PROGRAM  DISK 

7€0  SELECT  #1  BIO  : REM  SEL  DATA  BASE  KEY  FILE 

770  SELECT  #2  BIO  : REM  SEL  DATA  BASE  USER  FILE 

780  SELECT  #3  BIO  : REM  SEL  DATA  BASE  DELETE  FILE 

790  SELECT  #4  BIO  : REM  SEL  PLOT  KEY  FILE 

800  SELECT  #5  BIO  : REM  SEL  PLOT  USER  FILE 

810  SELECT  #€■  BIO  : REM  SEL  PLOT  DELETE  FILE 

820  REM 

830  REM  INITIALIZE  DATA  BASE  FILENAMES 

840  REM 

850  FI*  = "SCHEF 101 * ; REM  DATA  BASE  FILE  N*ME 

8SO  F2*  = "PL0TF101 " : REM  SCHEDULE  FILE  I^ME 

B€2  F3*  = "SCHE. DEL"  : REM  DAT  BAS  DEL  FILE  NAME 

8€*4  F4*  = ■ PLOT . DEL " : REM  DAT  SO-ED  DEL  FILE  NAME 

870  REM 

880  REM  LOAD  KFAM  COMMON  ROUTINES 

890  REM 

900  GOSUB  ' 102  ("KFAM  COMMON*  . "COWKFAM*  . "8000*  ) 

910  REM 

920  REM  DISPLAY  PROGRAM  CONTROL  l*ENU 

930  REM 

1000  SELECT  PRINT  005(80)  : REM  SEL  SYSTEM  OUTPUT  DEVICE 

1010  SELECT  INPUT  001  : REM  SEL  SYSTEM  IKPUT  DEVICE 

1020  REM 

1030  PRINT  HEX ( 030 AO A ) 

1040  PRINT  "NAVAL  TRAINING  SCHEDULE  MANAGEMENT" 

1050  PRINT  " THIS  SYSTEM  WILL  PERFORM  THE  FOLLOWING" 

10€.0  PRINT  " 1.  MAINTAIN  DATA  BASE* 

1070  PRINT  " 2.  SCHEDULE  FEASIBILITY  STUDY" 

10B0  PRINT  " 3.  PRINT  SCHEDULE  WORK  SHEET" 

1090  PRINT  " 4.  PLOT  SCHEDULE" 

llOO  PRINT  " 5.  EDIT  SCHEDULE" 

1110  PRINT  HFX(OAOA) 

1120  GOSUB  ' 101  (14.1.0.0) 

1130  PRINT  "ENTER  CODE  FOR  DESIRED  FUNCTION  > »: 

1140  INPUT  AS 

1150  IF  A8<=0  THEN  1030:  IF  AB>*6  THEN  1030 
1150  REM 

1170  REM  'MAINTANCE  ! FEASIB I LTY ' WORKSHEET  1 PLT  SCHED  'EDIT  SCHED! 

1180  REM  ! ! ! ! < t 

1190  ON  A8  GOTO  1240  . 1250  . 12C-0  . 1270  . 1280 

1200  REM  * ! ! « '■ i 

1210  REM  ** 

1220  REM  **  LOAD  OVERLAY.... 

1230  REM  ** 

1240  GOSUB  ' 102  ("DATA  BASE  MAINTENANCE" . "SCH. BASE" .* lOOO" ) 

1250  GOSUB  ' 102  ("FEASIBILITY  STUDY" . "SCH. FEAS" .“ lOOO" ) 

12€>0  GOSUB  ' 102  ("SCHEDULE  WORK  SHEET ".  "SCH.  WSHT"  lOOO"  ) 

1270  GOSUB  ' 102  ("PLOT  SCHEDULE" . "SCH.PLOT" . "2000" ) 

1280  GOSUB  ' 102  ("EDIT  SCHEDULE" . "SCH.  EDIT" > lOOO" ) 

1290  REM  ** 

1 300  REM  ** 

1310  END 

1320  REM  *♦ 


\mmjB 


4 


1330 

1340 

1350 

1350 

1370 

1380 

1390 

1400 

1410 

1430 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1530 

1530 

1540 

1550 

1550 

1570 

1580 

1590 

1500 

1510 

1530 

1530 

1540 

1550 

1550 

1570 

1580 

1590 

1700 

1710 

1730 

1730 

1740 

1750 

1750 

1770 

1780 

1790 

1800 

1810 

1830 

1830 

1840 

1850 

1850 

1870 

1880 

1890 

1900 

1910 


Subroutine 
Function 

Cusor  Address 


REM 
REM 
REM 
REM 

REM  **  Varaibles 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DEFFN 
DIM 

INIT  <0A) 

INIT  <09) 

INIT  (30) 


> 

> 


1 O 1 


and  Screen  erase 


Ol 

03 

01$< ) 
03$<  ) 
05 


row  position 
col  position 
cusor  vert 
line  ers 
line  indx 


03 

04 

03$< ) 
04$< ) 


lines  to  erase 
char(s)  erase 
cusor  horz 
micro  cmnd  bufr 


101 


(01-03.03.04) 

Gl$< 15) 1 . G3$(54 ) 1 . 03$<54 ) 1 . 04$  ( 10)1 
Gl$<  ) 


IF 

IF 


03$(  ) 
03$  < ) 
Ql$< 1 ) 
03$ ( 1 ) 

03 

04 
04 


R0W/005 


R0W/005 

C0L/OO5 

ERS/OOS 


R0W/005 

C0L/005 


FOR 
IF 

$CIO 
GOTO 
$G  10 
$GIO 
$GIO 
NEXT 
$GIO 
$GIO 
RETURN 
REM  ** 

REM  *-* 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM 
DEFFN 
PRINT 

PRINTUSING 
PRINT 
GOSUB 
PRINT 
PRINT 
GOSUB 
PRINT 
IF 


05 

05 


= FEX(Ol) 

= HEX (OD) 

= O 
O O 
= 55  - 
= 1 TO 

<>  1 

04$ ( ) )Q1$<  XI. 01  > 


THEN 

THEN 


1530 

1550 


03 

03 


THEN  1590 


(AOOO 
1500 

(AOOO. 04$ ( ) )Q1$( )<3. 1> 

( AOOO . 04$ ( ) )Q3$( X1.03> 
< AOOO.  04$  ( ) )Q3$(  XI.  04 > 
05 

( AOOO . 04$ ( ) )Q1$(  XI.  01  > 
( AOOO . 04$ ( ) >03$(  XI.  03.' 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


ENTRY 

DEFIN  BUFRS 
INIT  ROW  BUFR 
COL  BUFR 
ERS  BUFR 
TOP  OF  PAGE 
BEG  OF  LINE 
TO  ERASE 
ERASE 


INIT 
INIT 
INIT 
INIT 
NO  LINES 
CHARS  TO 


ERS  REST  OF  LINE 
ERASE  03  LINES 
NOT  FIRST  LINE 
POSITION  CUSOR 
BRANCH  TO  POS  COL 
POSITION  CUSOR  LF 
POSITION  CUSOR 
ERASE  TEXT 
CONT  ERASING 
REPOSITION  CUSOR 
REPOSITION  CUSOR 
EXIT 


n n s e $rw  n n r r s n inr  n v TTiMrir  h e h v h a h n s h inf  n r innnMnrinrir 


Subroutine 
Function  > 

To  load  an  over  lav  Routine 
Variables  > 

05$ < ) > 

08$ ()  > 


1 O 3 


description 
beoin  line  number 


07$ ( ) Drooram  name 


103 


101 


LOAD 

IF 

LOAD 
LOAD 
RETURN 
X T R A 


(05$. 07$. 08$) 
HEX(030A0A) 

1910."  " 

HEX (OAOAOA) 
(08.05.0.0) 

’System  Now  Loadino  > " 
HE  X ( OAOAOA  > 

101  ( 10.05.0.0) 

•Prooram  being  Loaded  ) 
08$  <>  " lOOO" ' 

DC  T #0.  07$  100 
<>  "3000* 

DC  T #0.  07$  lOO 
T #0.  07$  8000 


:05$: • Routine’ 


: 07$ 


THEN  1870 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


ENTRY 
CLEAR  CRT 
PRINT  TITLE 
FOR  TC  USE 
POSITION  CUSOR 
PRINT  DESCRIPTION 
FOR  TC  USE 
POSITION  CUSOR 
PRINT  PROG  NAME 
NOT  PROGRAM  OVRLY 


7999 


08$ 


THEN  1890  : REM  NOT  PLOT 


OVRLY 


DC 


I N I N C 


SCHEDULE 


P R D C R 


: REM  EXIT 
AM* 


37 


f 


SCHEDUL-E  Sys-t  e*m 


( SCM  _ WSHT  > 


4 


lOO 

HO 

120 

130 

140 

150 

150 

170 

180 

190 

200 

1000 


SCHEDULE  MANAGEMENT  (SCH.WSHT)  VERSION  1-0  780530 


X##  PROGRAM 
REM  ** 

REM 

REM  **  ++ 

REM  **  THIS  PROGRAM  WILL  CREATE  THE  SCHEDULE  WORK  ** 

REM  **  SHEETS  FOR  ALL  OR  PART  OF  TPE  COURSE  FILE  ** 

REM  **  DATA  BASE.  ** 

REM  **  ** 

REM  «»»« 

REM  ** 


REM  * 
DIM 


D04<  1 )4. D44(  1)18.  D2*(  1 >5.  D2<  2) . D3*(  4)€>4  : REM  DEFINE  WRK  BUFRS 


10.10 

DIM 

P144 

1020 

IB  = 

0 

1030 

19  = 

0 

1040 

MB  = 

0 

1050 

M9  « 

0 

1050 

Z = 

99 

1052 

A5  = 

0 

1070 

REM  ** 

1080 

REM  ** 

1090 

GOSLB 

' 200 

llOO 

GOSH? 

' 201 

1110 

COSUB 

' 203 

( 1 ) 

1120 

GOSLB 

' 202 

1130 

REM  ** 

1140 

GOSLB 

' 203 

(2) 

1150 

IF 

04  = 

■E" 

1150 

GOSUB 

' 110 

1170 

GOSLB 

' 111 

1180 

REM  ** 

1190 

REM  ** 

! 80 

(REMOTE) 

1200 

REM  ** 

1 

1210 

ON  A5 

GOTO 

1240 

1220 

REM 

1 

1230 

REM  *-* 

1240 

GOSLB 

' 205 

1250 

GOSLB 

' 205 

1250 

REM  ** 

1270 

GOSLB 

' 204 

1280 

GOSLB 

' 239 

( 1 ) 

1290 

GOSLB 

' 102 

('MAIN  CONTROL 

1300 

END 

1310 

REM  ** 

1320 

REM  ** 

1330 

REM  ** 

Subroutine 

REM  DEFINE  WRK  FLAGS 


REM  INIT 
REM  INIT 


REM 

REM 

REM 


INIT 

INIT 

INIT 


LII«  INDEX 


REM  FORMAT  FLAG 


REM  SEL  OUPUT  FORMAT 
REM  OPEN  FILES 
REM  LOAD  FRST  REC 
REM  SET  PRINTR  READY 


TFCN  1270 


REM  LOAD  NXT  REC 
REM  END  OF  CRS  FILE 
REM  CONVERT  TO  NUMERIC 
REM  CMPUTE  NSRY  INFO 


132  (LPT) 


1250 


REM  BRANCH 


GOTO 

GOTO 


1140 

1140 


REM  PRNT  SCH  FMT  1 
REM  PRNT  SCH  FMT  2 


REM  PRINT  TOTALS 
REM  CLOSE  KFAM  FIL  1 
REM  LOAD  SCHEDULE  PROG 
REM  El®  OF  PROGRAM 


0 3 2 


1340 
1350 
1 350 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 


REM 

REM 

REM 

REM 

REM 

REM 

REM 


Abstract  > 

This  routine  v«ill  display  a 
console. 

Variables  > 

E*  > error  message 


fatal  error  message  on 


DEFFN  ' 32  <E4) 

SELECT  PRINT  005(54) 

PRINT  HEX ( 07 ) 

COSUP  ' 101  ( 15r 1.0.0) 

PRINT  ' TOUCH  'RETURN'  TO  RESTART' 


REM  ENTRY 

REM  SEL  CONSOLE  DEV 
REM  PRINT  TONE 
REM  POSITION  CUSOR 
REM  PRINT  RESTRT  MSG 


38 


mm. 


REM  SEL  PAUSE 
REM  POSITION  CUSOR 


1450 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1550 

1570 

1580 

1590 

1500 

1510 

1520 

1530 

1540 

1550 

1550 

1570 

1580 

1590 

1700 

1710 

1720 

1730 

1740 

1750 

1750 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1B40 

1B50 

1850 

1870 

1880 

1B90 

1900 

1910 

1920 

1930 

1940 

1950 

1950 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 


P3 

lOl 


< 14.1.1.0) 


SELECT 
GOSL© 

PRINT 

GOStJB  ' 101 
PRINT  E* 

SELECT  PO 

KEY IN  FI*. 1540. 1540 


( 14.1.0.0) 


GOTO  1450 


: REM 
: REM 
: REM 
: REM 


POSITION  CUSOR 
PRINT  MSG 
DE-SEL  PAUSE 
RESPONCE  WAIT 


REM  ** 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
STOP  ■ 


TO 


HEX  ! 030AOA0A ) 

" EXECUTE  THE  FOLLOWING'  COMMANDS 
" : CLEAR  V < RETURN! EXEC) )" 

" : CLEAR  P < RETURN! EXEC) )" 

" ILOAD  DCT  #0.  ‘: HEX! 22): ‘SCHEDULE 

‘ ZRUN  ! RETURN! EXEC) )" 

HEX ! OAOA) 

ENTER  COMMANDS  NOW " 


: REM 
RESTART: " 


CLR  CONSOLE 


: HEX ( 22 ) : “ ! RETURN ! EXEC ) ) 


Subroutine  > 
Function  > 
Cusor  Address 


and  Screen  erase 


Varaibles 


Q1 

02 

Ol*!  ) 
03*!  ) 
05 


> 


> 


row  position 
col  position 
cusor  vert 
line  ers 
line  indx 


03 

04 

02*!  ) 
04*!  ) 


101 


RETURN 
REM  *-* 

REM  *-* 

REM  ** 

REM  ** 

REM  ** 

REM  *-» 

REM  •** 

REM  ** 

REM  ** 

REM  *+ 

REM  ** 

REM  ** 

l^n  Bn  nH  nn  nn  n Hnn  n W lln  l^W  lOnnTnn  n if  1111  B 

! 01. 02. 03. 04) 

Gl*! 15) 1.02*! 54) 1.03*! 54) 1.04*! 10)1 
01*!  ) 

02*!  ) 

03*!  ) 

01*!  1 ) 

02*! 1 ) 

03  = 0 

04  <>  0 

04  = 55  - 

05  = 1 TO 
05  <>  1 

! AOOO. 04*! ) )Q1*! )<1.01> 

1910 

! AOOO. 04*! ) )Q1*! ) <2. 1 > 

! AOOO. 04*! ) )02*! ) <1 . Q2> 

! AOOO. 04*! ) )Q3*! )<1.Q4> 

05 

! AOOO. 04*! > )Q1*! )<1.Q1> 

! AOOO. 04* ( ) )Q2*! ><1.02> 


REM  EXIT 


1 O 1 


lines  to  erase 
char<5)  erase 
cusor  horz 
micro  cmnd  bufr 


DEFFN  ' 
DIM 

INITIOA) 
INIT !09) 
INIT !20) 


= HEX !01 ) 
= HEX (OO) 


IF 

IF 


THEN 

THEN 


1940 

1850 


FOR 
IF 

*GIO 
GOTO 
*GIO 
*G  10 
*GIO 
NEXT 
*GIO 
*GIO 
RETURN 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ♦* 
REM  ♦* 
REM  ** 
REM  ** 


02 

03 


THEN  1900 


R0W/005 


R0W/005 

C0L/0O5 

ERS/0O5 


ROW/OOS 

C0L/005 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


ENTRY 

DEFIN  BUFRS 
INIT  ROW  BUFR 
COL  BUFR 
ERS  BUFR 
TOP  OF  PAGE 
BEG  OF  LINE 
TO  ERASE 
ERASE 


INIT 
INIT 
INIT 
INIT 
NO  LINES 
CHARS  TO 


ERS  REST  OF  LINE 
ERASE  03  LINES 
NOT  FIRST  LINE 
POSITION  CUSOR 
BRANCH  TO  POS  COL 
POSITION  CUSOR  LF 
POSITION  CUSOR 
ERASE  TEXT 
CONT  ERASING 
REPOSITION  CUSOR 
REPOSITION  CUSOR 
EXIT 


Subroutine 
Function 
To  load 
Variables 
05*!)  > 
08*! ) > 


> 

> 

an 

> 


1 O 2 


over  lay  Routine. 


description 
begin  line  number 


07*! ) Drooram  name 


2oeo 

2070 

2072 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2150 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2250 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2350 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2450 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2550 

2570 

2580 

2590 

2EOO 

2510 

2520 

2530 

25-40 


REM 


DEFFN  ' 102 
SELECT  PRINT 
PRINT 
PRINTUSING 
GOSUB 
PRINT 


GOSUB  ' 

PRINT 

IF 

LOAD 
LOAD 
RETURN 
X T R A 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
DEFFN 

IF 

REM  ** 


REM  *♦ 

REM  ** 

IF 

RETURN 
REM  ** 
REM  *+ 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
REM 
DEFFN  ' 
CONVERT 
CONVERT 
CONVERT 
CONVERT 
CONVERT 
CONVERT 
CONVERT 
CONVERT 
REM  ** 


(05*. 07*. OB*)  : 

005(54)  : 

KEX (03)  : 

2180. " ■ : 

101  (08.05.0.0)  : 

■System  Now  Loading  > “JOS*:*  Routine*  : 

lOl  (10.05.0.0)  " : 

■Program  being  Loaded  > *:Q7*  : 

08*  <>  *1000*'  TEEN  2150  : 

DC  T #0.  07*  lOO  . 7999 
DC  T #0.  07*  8000 


REM  ENTRY 

REM  SEL  OUTPUT  DEV 
REM  CLEAR  CRT  ' 

REM  PRINT  TITLE 
REM  POSITION  CUSGR 
REM  PRINT  DESCRIPTION 
REM  POSITION  CUSOR 
REM  PRINT  PROG  NAME 
REM  NOT  PROG  OVRLY 


I N I N G 


SCHEDULE 


P R O G R 


! REM  EXIT 

AM* 


Subroutine 
Abstract  > 

This  routine  will 
number  of  decimal 
Variables  > 


1 O 4 


round  a 
digits. 


number  to  the  soecified 


104  (D1.D2.D3.A9) 


A9 

D1 

D4 

D4 

D4 


= 1 

<=  1.00 


THEN  2410 


D1  - INT(Dl) 

I NT (D4  * ( 104(03+1 ) ) ) 

( (D4/10)  - I NT (D4/10) ) 


* 10 


REM 

REM 

REM 

REM 

REM 

REM 


ENTRY 

I NIT  RETURN  VALUE 
MIMIUM  VALUE 


FTCH 

MOVE 

FTCH 


DECML  VALUE 
DECML  POINT 
CHK  DIGIT 


A9  = I NT ( Dl*( lOt (D3) ) >*10t ( -D3)  : 

D4  < D2  THEN  2410  : 

A9  = A9  + ( <1.0)*(10f (-D3) ) ) : 


REM  FTCH  BASE  VALLE 


REM 

REM 


ROUND 

ROUND 


DOWN 

UP 


REM  EXIT 


Subroutine 
Abstract  > 

This  routine  will  convert 
numeric  information  for  c 
Variables  > 


input  data 
ilculations. 


record  into 


110 

I 1*(Q) 

C2*(0) 

W*(Q) 

M1*(Q) 

I9*(Q) 

E1*(0) 

S1*(0) 

S2*(Q) 


TO 

TO 

TO 

TO 

TO 

TO 

TO 

TO 


11(1) 
C2(  1 ) 
W(  1 ) 
Ml  ( 1 > 
19(1) 
El  ( 1 ) 
Sl(l) 
S2(  1 ) 


FOR  K = 1 TO  7 

CONVERT  H*(O.K)  TO 
CONCERT  R*(Q.K)  TO 


H(  l.K) 
R(l.K) 


: REM 
: REM 
: REM 
: REM 
: REM 
: REM 
: REM 
: REM 
: REM 

: REM 
: REM 
I REM 


ENTRY 

PLAhWED  INPUT 

CLAS  SIZ 

CRS  LEN  (WKS) 

MAN  POWER 

INSTRUCTORS 

TRAINERS 

SUPPORT 

MPA 

BEG  CNTACT  LOOP 
C NT ACT  HRS 
CNTACT  RATIOS 


2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 


NEXT  K 
REM 

RETURN 
REM  ** 
REM  +* 
REM  ** 
REM  *"* 
REM  ** 
REM  *•* 
REM  *+ 
REM  «-» 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  «hh 


REM  CONT  C NT ACT  LOOP 


: REM  EXIT 


Subroutine  mmi hhhhhhhhhhh>  111 

Abstract  > 

This  routine  will  perform  the  following  caluclations  - 

- Instructor/Comp  : 

- Course  Length  (days)  : 

- AOB  (Average  On  Board)  : 

- Sum  Type  Hours  (Inst/ComD) 

- Convening  Frequency 

- Concurrent  Scheduling 
Variables  > 


2830 

DEFFN  ' 

111 

REM 

ENTRY 

2840 

W2(  1 ) 

= W( 1 )*7-2 

REM 

CRS  LEN  (DAYS) 

2850 

0(1) 

= 11(1)  *W2 ( 1 ) / 365 

REM 

AOB 

2860 

S(  1 ) 

= 0 

REM 

INIT  TYPE  HRS 

2870 

REM  ** 

2880 

FOR 

K = 1 

TO  7 

REM 

BEG  RATIO  LOOP 

2890 

IF 

H(l.K)  = O 

THEN 

2950 

REM 

NO  HRS 

2900 

IF 

R(l.K)  = 0 

TfEN 

2950 

REM 

NO  RATIO 

2910 

A2  = 

C2( 1)/R(1.K) 

REM 

CMPUT  QUOTA/RATIO 

2920 

GOSUB 

' 104  (A2.5.1.A9) 

REM 

ROUND  OUOTA/RATIO 

2930 

GOSUB 

' 104  (A9.3.0.A9) 

REM 

ROUND  OUOTA/RATIO 

2940 

S(  1 ) 

= S( 1 ) + (A9*H( l.K) > 

REM 

SUM  TYPE  HOURS 

2950 

NEXT 

K 

REM 

CONT  RATIO  LOOP 

296.0 

REM  ** 

2970 

A2  = 

Il( 1 )/C2( 1 ) 

REM 

NUN  OF  CLASSES 

2980 

GOSUB  ' 

104 

(A2.  1 

. 0. A9) 

REM 

ROUND  70  WHOLE 

2990 

C4(  1 ) 

= A9 

REM 

STOR  * OF  CLAS 

3000 

C5(  1 ) 

= 50/C4 ( 1 ) 

REM 

3010 

C6(  1 ) 

= W(l)/C5(l) 

REM 

3020 

I2(  1 ) 

= (S(l)*1.10>  / (C5(l)*25*.88) 

REM 

« OF  INSTRUCTORS 

3030 

GOSUB  ' 

104 

( 12 ( 1 ). 1.0. A9) 

REM 

ROUND  # OF  INSTS 

3040 

I3(  1 ) 

= A9 

REM 

STOR  # OF  INSTS 

3050 

REM  ** 

3060 

E2  = 

C6(l)/2 

REM 

3070 

E3(  1 > 

= I NT (C6( 1 )/2) 

REM 

3080 

IF 

E3(  1 ) 

-E2  >=  0 

THEN 

3100 

REM 

3090 

E3(  1 ) 

= E3( 1 ) ♦ 1 

REM 

3100 

RETURN 

REM 

EXIT 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  **s 
DEFFN 
IF 
IF 

COSUB 


Abstract  > 

This  routine  will  select  an  ALL  or  PWRT  mode  for  the 
generation  of  the  schedule. 

Variables  > 


1 5 O 


150  (Al) 

A1  = 1 

PI*  <>  • ALL“ 
237  (1> 


: REM  ENTRY 

THEN  3310  : REM  LOAD  FIRST  REG 
THEN  3300  : REM  TST  FOR  ALL 
: REM  FIND  NXT  CRB 


. - -'  vus; ; 


• • 

- \ 


Etjf r - 


3250 

IF 

Q*  = " " 

THEN 

3550 

REM 

BRNCH  TO  EXIT 

32€.0 

IF 

Q*  * "E" 

TPEN 

3550 

REM 

BRNCH  TO  EXIT 

3270 

GOSUB  ' 

032 

C KFAM  FIND  NEXT  ERROR.. 

. (150)*) 

REM 

LOOKUP  ERROR 

3280 

GOTO 

3550 

REM 

BRNCH  TO  EXIT 

3290 

REM  ** 

3300 

IF 

PI*  = "PART" 

THEN 

3450 

REM 

TST  FOR  PART 

3310 

PRINT 

HEX ( 030A0A0A ) 

REM 

CLR  CONSOLE 

3320 

GOSUB  ' 

lOl 

(5. 1.0.0) 

m 

REM 

POSITION  CUSOR 

3330 

PRINTUSING 

3550.  " ’ 

a 

m 

REM 

PRNT  MSG 

3340 

PRINTUSING 

3570. " " : 

3350 

INPUT 

PI* 

; 

REM 

INPUT  REBPONCE 

3350 

REM  ** 

3370 

IF 

PI*  <>  * Y* 

THEN 

3440 

REM 

NOT  ALL 

3380 

PI*  = "ALL" 

REM 

SEL  ALL  FLAG 

3390 

GOSUB  ' 

235 

( 1 ) 

REM 

FIND  FIRST  CRS 

3400 

IF 

9*  = " " 

THEN 

3550 

REM 

BRNCH  TO  EXIT 

3410 

GOSUB  ' 

032 

("  KFAM  FIND  FIRST  ERROR. 

..  (150)") 

REM 

LOOKUP  ERROR 

3420 

GOTO 

3550 

REM 

BRANCH  TO  EXIT 

3430 

REM  ** 

3440 

PI*  = "PART* 

REM 

SEL  PART  FLAG 

3442 

IF 

A1  = 1 

THEN 

3550 

REM 

BRNCH  TO  EXIT 

3450 

GOSUB  ' 

151 

(Cl*) 

REM 

ENTER  CDP 

3450 

IF 

Cl*  <>  "STOP" 

THEN 

3500 

REM 

NOT  END  OF  LIST 

3470 

O*  = "E" 

REM 

SET  EOF  FLAG 

3480 

GOTO 

3550 

REM 

BRANCH  TO  EXIT 

3490 

REM  ** 

3500 

GOSUB  ' 

232 

( 1.0. Cl*) 

REM 

FIND  OLD  CRS 

3510 

IF 

0*  = * “ 

THEN 

3550 

REM 

BRNCH  TO  EXIT 

3520 

PRINT 

HEX (07) : "RE-ENTER. . . " 

REM 

INVALID  CDP 

3530 

GOTO 

3450 

REM 

RE-ENTER  CDP 

3540 

REM  ** 

3550 

RETURN 

1 

REM 

EXIT 

Do  you  wish  to  have  ALL  Worksheets  printed  # 
Enter  < Y - ves  or  N - no) > 


Subroutine 
Abstract  > 

This  routine  will  allow  the  CDP  number 
input  and  verified  for  valid  syntax. 
Variables  > 


3560  X 
3570  X 
3580  REM 
3590  REM 
3€00  REM 
3510  REM 

3580  REM  *-*  This  routine  will  allow  the  CDP  number  to  be 
3530  REM 
35A0  REM 
3550  REM 
3550  REM 
3570  REM 

3580  DEFEN  ' 151  (Cl*)  : 

3588  SELECT  PRINT  005(54)  : 

3590  COSL©  ' lOl  (14,1.1.0)  : 

3700  PRINT  HEX (OAOA)  : 

3710  GOSUB  ' 101  (14.1.0.0)  : 

3720  PRINT  "Enter  CDP  Number  (STOP  to  StOD>  — >"! 


1 5 1 


REM  ENTRY 
REM  SEL  OUTPUT  DEV 
REM  POSITION  CUSOR 
REM  FOR  TC  USE 
REM  POSITION  CUSOR 
: REM  PRNT  PROMPT 


3730 

IFEUT 

Cl* 

• 

• 

REM 

INPUT  RESPONCE 

3740 

REM  ** 

3750 

FOR 

I * 1 TO  4 

• 

• 

REM 

BEG  SYNTAX  LOOP 

3750 

IF 

STR(Cl*.I.l) 

> 

"Z" 

TFEN 

3800 

■ 

• 

REM 

INVALID  CHAR 

3770 

IF 

STR(C1*. 1.1) 

>« 

“A" 

THEN 

3840 

• 

REM 

VALID  CHAR 

3780 

IF 

STR (Cl*. I . 1 ) 

> 

“9" 

THEN 

3800 

m 

REM 

INVALID  CHAR 

3790 

IF 

STR (Cl*. 1,1) 

>* 

"0" 

TFEN 

3840 

m 

a 

REM 

VALID  CHAR 

3800 

PRINT  PCX (07) 

. a 
• 

RE-ENTER. 

• 

• • • 

m 

a 

REM 

INVALID  CDP 

3810 

1-4 

a 

a 

REM 

SET  END  DF  LOOP 

3820 

NEXT  I 

m 

a 

REM 

TERMINATE  LOOP 

aj  > • 


’ j , 

_ ... . . ^ 


42 


41SO  X # a - 1 32  character  <LPT> 

4170  X # Enter  the  code  for  desired  output  width  <l-2) 
4180  REM  ** 

4190  REM  ** 

4200  REM  ** 

4210  REM  ** 

4220  REM  *+ 

4230  REM  ** 

4240  REM  ** 

4250  REM  ** 

42E-0  REM  **■ 

4270  DEFEN  ' 201 
4280  PRINT  HE X < 030 AO AO A ) 

4290  PRINT  " MOUNT  SCHEDULE  DATA  DISK.. 

4300  PRINT  HE  X < OAOAOA ) 

4310  COSUB  ' lOt  (8.  1.0.0) 

4320  PRINT  " TOUCH  ' RETURN ' WHEN  READY 

4330  INPUT  At 

4340  REM  *♦ 

4350  GOSUB  ' 239  <1> 

43E0  GOSUB  ' 230  ( 1 . 1 . 2. 1 . Fit) 

4370  IF  Ot  = ’ • THE1 

4380  GOSL©  ' 032  <*  KFAM  OPEN  ERROR..  FILE  1*) 

4390  REM 
4400  GOSL© 

4410  IF 


Abstract  > 

This  routine  will  open  the  nessary  KFAM  files 
Variables  > 


REM  ENTRY 
REM  CLR  CONSOLE 
REM  PRINT  PROMPT 
REM  FOR  TC  LISE 
REM  POSITION  CUSOR 
REM  PRINT  PROMPT 
REM  RESPONCE  WAIT 


REM  VERIFY  CLOSED 
REM  OPEN  DATA  BASE 
REM  FILE  OPENED 
REM  PRINT  ERR  MSG 


: REM  FIND  FIRST  DAT  FIL 
THEN  4440  t REM  NO  ERR  FOUND 


4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4542 

4550 

4550 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 


Subroutine  hhhhmhhh 
Abstract  > 

This  routine  will 
variables  > 


A5  <>  O 

HEX  < O30AOAOA ) 
(5. 1.0.0) 
4730. " ■ 

HEX  < 0A0AOAO7 ) 
<8. 1.0.0) 
4740. * * 

Ft. 4610. 4610 
Ft. 4660. 4660 


initialize  the  outDut  device. 


THEN  4660 


GOTO  4620 


132  (LPT) 


GOSUB  ' 032  <•  KFAM  FIND  FIRST  ERROR  ..(201)' 

REM  ** 

RETURN 
REM  ** 

REM  ** 

REM  **  Subroutine  whhhhhhhhhhhhhhhhhhhhhw 
REM  **  Abstract  > 

REM  **  This  routine  will  initialize  the  o 
REM  **  variables  > 

REM  ** 

REM  ** 

DEFFN  ' 202 

IF  A5  <>  O THEN 

PRINT  HEX  < O30AOAOA ) 

GOSUB  ' 101  (5. 1.0.0) 

PRINTUSING  4730."  * 

PRINT  HEX  < 0A0AOAO7 ) 

GOSUB  ' lOl  <8. 1.0.0) 

PRINTUSING  4740. * * 

KEVIN  Ft. 4610. 4610 

KEYIN  Ft. 4660. 4660  : GOTO 

REM  ** 

REM  **  • 80  (REMOTE)  ! 132  (LPT)  ! 

REM  **  ! ! f 

ON  A5  GOTO  46.90  . 4700  1 

REM  **  » ! ! 

REM  ** 

SELECT  PRINT  215  (80)  : GOTO 

SELECT  PRINT  215  (132)  : GOTO 

REM  ** 

RETURN 

X # INITIALIZE  OUTPUT  DEVICE  ...  L I NEPR INTER 
X # TOUCH  ANY  KEY  TO  CONTINE. . . 

REM  ** 

REM 

REM  **  Subroutine  <hhhhhhhhh  k h n >»»»»»■»»■»»■» 
REM  **  Abstract  > 

REM  **  This  routine  will  load  a record  fr 
REM  **  Variables  > 

REM 
REM  ** 

DEFFN  ' 203  ( . 

GOSUB  ' 150  (» 1 > 

IF  Ot  = *F“  71-EN 

KEYIN  Ft.  A 880.  4880  : GOTO 

IF  Ft  > HEX ( IF)  THEN 


REM  DISPLAY  ERROR  MSG 


REM  EXIT 


(REMOTE) 


PRINT  215  (80) 
PRINT  215  (132) 


GOTO  4720 
GOTO  4720 


REM  ENTRY 

REM  SET  FORMAT  ONLY 
REM  CLR  CONSOLE 
REM  POSITION  CUSOR 
REM  PRINT  READY  MSG 
REM  FOR  TC  USE 
REM  POSITION  CUSOR 
REM  PRINT  PROMPT 
REM  CLR  INPUT  BUFR 
REM  RESPONCE  WAIT 


REM  BRANCH 


REM  SEL  OUT  DEV  1 
REM  SEL.  OUT  DEV  2 


REM  EXIT 


Subroutine  ihhhmhmh 
Abstract  > 

This  routine  will 
Variables  > 


record  front  the  data  base. 


203  < ■ 
150  (/  1 > 


GOTO 
REM  *# 
DATA  LOAD 


O*  = ’F* 

Ft.  A 880.  4880 
Ft  > HEX ( IF) 

Qt  = *E* 

4980 


: REM  ENTRY 

: REM  FIND  NXT  CRS  REC 
Tl-EN  4980  : REM  BRNCH  TO  EXIT 
GOTO  4920  : REM  INTRUPT 
THEN  4920  : REM  NOT  CNTR  CHAR 
: REM-  SET  EOF  FLAG 
: REM' BRNCH  TO  EXIT 


4930 

4940 

4950 

4960 


DC  #2 


DOt ( 1 ) 
D4t ( 1 ) 
D2t ( 1 ) 


CltO.NltO.  TtO.IltO 
C2t ( ) . Wt().  Rt().  Ht() 

Mlt ( ) . I9t ( ) . El t ( >.Slt( ).S2t( ) 
* Clt(6) 

= Tt(Q)  : 

= wt(Q)  : 


CONVERT 


D2t < 1 ) TO  D2( 1 ) 


REM  FETCH  CDP 
REM  FETCH  TITLE 
REM  FETCH  CRS  LEN 
REM  CRS  LEN  (WKS) 


r 


i 


4990  REM 
5000  REM 
5010  REM 
5050  REM 
5030  REM 


Subroutine 
Abstract  > 

This  routine  will  print  a total 


5 0 4 


of  the  followino 


5040 

REM  **  values  - 

5050 

REM  ** 

Total  InDuts: 

5050 

REM  ** 

Total  instructors  reouired: 

- 

5070 

REM  ** 

Total  instructors  moa; 

5080 

REM  ** 

Total  Zero. 

5090 

REM  **  Variables  > 

5100 

REM  ** 

• 

5110 

REM  ** 

5150 

REM  *»■»**»*****■»*  » « » mm*»»**»***w * n«>«»ii  »**■*»*»*■ 

5130 

DEEFN  ' 504 

REM 

ENTRY 

5140 

PRINT 

HEX(OCOE): 

a 

a 

REM 

EXPAND  PRINT 

5150 

PRINT  USING 

5550."  " 

a 

REM 

PRINT  HEADING 

5150 

PRINT 

HEX (OAOA) 

REM 

POSITION  PAGE 

5170 

PRINTUSING 

5570. 18 

a 

REM 

INPUTS 

5180 

PRINT 

5190 

PRINTUSING 

5580. 19 

a 

a 

REM 

INST  REQ 

5500 

PRINT 

5510 

PRINTUSING 

5590. M8 

REM 

INST  MPA 

5550 

PRINT 

5530 

PRINTUSING 

5300. M9 

REM 

NULL 

5540 

PRINT 

HEX  < OC ) 

REM 

TOP  OF  FORM 

5550 

RETLRN 

REM 

EXIT 

5560 

X COURSE 

SCHEDULE  WORK  SHEET  (SUMMARY)  # 

5570 

X HHH* 

TOTAL  INPUTS  FOR  COURSES  PRINTED  

a , 

5580  X *****  TOTAL  INSTRUCTOR  REQUIRED  FOR  COURSES  PRINTED 

5590  x *****  TOTAL  INSTRUCTORS  MPA  FOR  COURSES  PRINTED  

5300  X *****  TOTAL  I)))))))))))))))))))))  


5310 

REM 

5350 

REM 

*-* 

5330 

REM 

5340 

REM 

*-* 

5350 

REM 

-tH* 

5350 

REM 

5370 

REM 

■H-* 

5380 

REM 

5390 

REM 

5400 

REM 

•*hm 

5410 

DEFFN 

5450 

IF 

z< 

Subroutine 
Abstract  > 

This  routine 
according  to 
Variables  > 


5 0 5 


will  output  the  schedule  worksheet 
a 80  column  format. 


5430 

5440 

5450 

5455 

5450 

5470 

5480 

5490 

5500 

5510 

5550 

5530 


5540 

5550 


' 505 

55  THEN  5510 
PRINT  HEX  <OCOE ) : TAB ( lO)  : 1 
PRINT 


REM  ENTRY 


COURSE  SCHEDULE  WORK  SHEET" 


PRINTUSING 

PRINTUSING 

PRINTUSING 

PRINTUSING 

PRINTUSING 

PRINTUSING 

Z=7 

PRINTUSING 

PRINTUSING 

PRINTUSING 


5570. 

5580f 

5590. 

5500. 

5510. 

5550. 

5540. 

5550. 

5550. 


REM  PRNT  HEADER 


ci*<Q):ni*<q>:t*<q) 


w<i);w5<l):ii<i);o<l):C5(l>?C4(l) 
: C5< l >jcs< l ): I3< l ) ;mi ( l > : I9*<Q) : 

si*<q):S5*<q>:E3(1):ei*<q> 
PRINTUSING  5570.  * " 

IB-18+11  < 1 >:  I9«I9+I3<1>:  MB-M8+MK1):  M9-M9+M5<1) 


45 


f 


2 - Z + 5 


RETURN 
X#CRS  LEN  ! 


: REM  I NCR  LINE  INDX 
: REM  EXIT 


Z#WK5 ! DAYS!  INHJT 


X#=  = = ! ===»  • = 


! INSTRUCTOR 


‘CLASS! SHED  !CONV  !C/C 


AOB  !SIZE  ! CLASS ! FREQ  ! CLASS ! REO! MPA ! OTHER 

sanm  | sssss  1 sssss  * rsxsz  1 xsscs  * csss  1 tsrrs  1 ssass 


Xrnp  1 f TN  illllltHHHtll 

vLT  rrWWTf  . LIU  IflPfinfTHfW 


y ihui  i * MUMyi  i Ml  i Milium 

* WWW  . WWW  . WTfTTTfTT  . WW  f WW  . WWWTFW 


CRS  TITLE 


i mm  MM'MM  MMIMMM'MMM<  mmm 

TTWWWW  . FF  FT  m WW  . WW  « FF  FI  . WWW  . FF  FF  IF  . WWW 


SUPPORT ! TRANER 


REQ ! MPA ! REQ ! AV 


= = = ! rw  1 | —ts 


### ! ### ! ##* ! ## 


X#  = *•»  * = = * **  =========  ============  = = = = = = = = = ===  = = = = = = = = = = = ==  = = ==  = = =«  = *3 

REM  ** 

REM  ** 

REM  **  Abstract  > 

REM  **  This  routine  will  print  the  schedule  worksheets 
REM  **  accordina  to  a 138  column  format. 

REM  **  Variables  > 

REM  +* 

REM  ** 

DEFFN  ' 805  : REM  ENTRY 

IF  2<  55  THEN  5B80 

PRINT  HEX <OCOE): TAB < lO): “COURSE  SCHEDULE  WORK  SKEET* 

PRINT 

PRINTUSING  5950.  * * : REM  PRINT  HEADER 

PRINTUSING  5930.  * * 

PRINTUSING  5940.  “ * 

PRINTUSING  5950.  ’ “ 

PRINTUSING  5950.  “ “ 

PRINTUSING  5970.  * * 

Z = 7 

PRINTUSING  5980.  C1*<Q) : N1*(0) : T*(G> : W< 1 ) : W8<  1 ) : 

ll(l):d<i):c8<i):C4<i):C5<l):C5<i): 

I3< l ) :mi < l): 194(0): si*<Q):S8*<Q):E3<l):El*<Q) 
PRINTUSING  5990.  “ “ 

Z * 7+8 

18=18*11  < 1 ) : I9=-I9*I3<  1 ):  M8=M8+M1(1):  M9=M9+M8<1> 

RETURN  : REN  EXIT 


X# 

CONV 

X# 

X#  CDP 
FREO 
Z#**==* 


X (NMN) 


INSTRUCTOR 


! LENGTH  ! 

! SUPPORT  1 TRAINERS 


TITLE 


? CLASS  !REQ  'l<*»A 

1 =«===a 


OTHER  !REQ 


WKS  ! DAYS!  INPUT 
! MPA ! REO  ! AVL  ! 

rzsar  | sssixrrs  • sssssrs 
s?  * ***-*.*- irsrrrs  I - = s*  * 


CLASS  ! SK 


SIZE  ! CL 


5990  X#- 


Hi 


SCHEDULE  Bvsi-t  Rm 


C F^L-Crr  _ SEL  > 


**■ 


lOO  X##  PROGRAM  TRAINING  SCHEDULE  (PLOT. SEL)  VERSION  1.0  2200  T 780029 

110  REM  *♦ 

120  REM  »*«»»»♦«♦»  »>IM»  « 

130  REM  **  ** 

1 AO  REM  *♦  THIS  PROGRAM  WILL  ALLOW  THE  USER  TO  SELECT  THE  ** 

ISO  REM  **  OUTPUT  FORMAT  CIF  THE  SCHEDULE . ONCE  SELECTED  THE 

160  REM  **  PROGRAM  WILL  LOAD  THE  PROPER  PROGRAM  AND  THEN  LOAD 
170  REM  *♦  LOAD  THE  MAIN  PLOTTING  ROUTINE. 

180  REM  ** 

190  REM 
200  REM  ** 

210  REM  ** 

220  DIM 
230  DIM 
2 AO  REM  ** 

2 SO  GOSUB 
260  REM  ** 
lOOO  Xm  RE-ENTRY 
GOSLB  ' 200 
REM  ** 

REM  ** 

REM  ** 

ON  A1  GOTO 
REM  ** 

REM  *+ 

REM  ** 


DO*< 1 >4.D4*< 1 ) 18. D2*< 1 )5.D2<2) .D3*<4)64 
PI  *4 

102  < "RE-LOAD  COMMKFAM* . "COMMKFAM" . " 8000" ) 


FROM  COMMKFAM  ROUTINE 


REM  DEFINE 
REM  DEFIlt 


WRK 

WRK 


BUFRS 

FLAGS 


1002 

1010 

1020 

1030 

lOAO 

10S0 

1060 

1070 


REM  LOAD  COMMKFAM 


REM  SEL  OUPLIT  FORMAT 


1 FORMAT  1 ! FORMAT  2 ! FORMAT  3 ! FORMAT  A 


1080 


1090 


1 lOO 


1110 


1080 

CDSLB 

/ 

102 

< 

"PLOT 

FMT 

1 “ . *FLOT. OOl " . •6000“ ) 

REM 

LOAD 

FORMAT  1 

1090 

GOSUB 

/ 

102 

< 

"PLOT 

FMT 

2" . "PLOT. 002* . "6000“ ) 

REM 

LOAD 

FORMAT  2 

llOO 

GOSUB 

/ 

102 

( 

■PLOT 

FMT 

3". "PLOT. 003" . ■6000" ) 

REM 

LOAD 

FORMAT  3 

1110 

GOSUB 

/ 

102 

< 

•PLOT 

FMT 

A" . " PLOT . 004 ■ . ■ 6000" ) 

REM 

LOAD 

FORMAT  A 

1120 

REM  ** 

1130 

REM  ** 

1 1 AO 

DEFFN 

/ 

255 

; 

REM 

DEFINE  RE-ENTRY 

1150 

GOSUB 

/ 

102 

< 

"SCHEDULE 

PLOT" . "PLOT. PLT” . “ lOOO" ) 

: 

REM 

LOAD 

PLOT INC  PROG 

1160 

REM  ** 

1170 

END 

REM 

END  OF  OVERLAY 

1180  REM 
1190  REM 
1200  REM 
1210  REM 
1220  REM 
1230  REM 
12A0  REM 
1250  REM 
1260  REM 
1270  REM 
1280  REM 
1290  REM 
1300  REM 
1310  DEFFN  ' 
1320  DIM 
1330  INIT <0A) 
13AO  INIT (09) 
1350  INIT  < 20) 
1360 
1370 
1380  IF 
1390  IF 


Subroutine  ' 
Function  > 
Cusor  Address 


10  1 


and  Screen  erase 


Varaibles  > 

01  > row  position  ! 03 

02  > col  position  f 04 

Ql*<  ) > cusor  vert  ! 02*< ) 

03* < ) > line  ers  ! 04*0 

05  > line  indx  ! 


lines  to  erase 
char(s)  erase 
cusor  hori 
micro  cmnd  bufr 


101 


(01.02. 03. QA) 
01*<16)1.02*<64)1, 
01*<  ) 

02*  < ) 

03*  < ) 

01*(1>  = HEX  < 01 ) 
02* < 1 ) * HEX (OD) 
03  = O 
QA  O O 


03*  < 6A ) 1 . QA*  <10)1 


REM  ENTRY 
REM  DEFIN  BUFRS 
INIT  ROW  BUFR 
INIT  COL  BUFR 


REM 

REM 

REM 

REM 

REM 


THEN 

THEN 


1490 
1 A10 


INIT  ERS  BUFR 
INIT  TOP  OF  PAGE 
INIT  BEG  OF  LINE 
REM  NO  LINES  TO  ERASE 
REM  CHARS  TO  ERASE 


47 


*•<  j*.*  ' 


1400 

1410 

1450 

1430 

1440 

1450 

1450 

1470 

1480 

1490 

1500 

1510 

1550 

1530 

1540 

1550 

1550 

1570 

1580 

1590 

1500 

1510 


FOR 
IF 

♦GIO 
GOTO 
♦CIO 
♦CIO 
♦GIO 
NEXT 
♦GIO 
♦GIO 
RETURN 
REM  *-* 
REM  ** 
REM  ** 
REM  ** 
REM 
REM  ++ 
REM  ** 
REM  ** 
REM  ** 
REM 


04  * 65  - 05 

05  = 1 TO  03 
05  <>  1 

R0W/0O5  (A000.0440  )Q14<  )<1.Q1> 
1450 

ROW/OOS  <AOOO.Q44< ) >Q14< )<5. 1> 
COL/ 005  (AOOO.Q44< ) )Q54< )<1.05> 
ERS/005  <A000.044< > >Q34< )<1.04> 
05 

R0W/0O5  <AOOO.Q44<> )Q14< ><1.Q1> 
C0L/OO5  <AOOO.Q44< ) >Q54< ><1.QE> 


THEN  1450 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


Subroutine 
Function  > 

To  load  an  over  lay  Routine. 
Variables  > 

064  < ) > description  • 

084 < ) > beoin  line  number  ! 


ERS  REST  OF  LINE 
ER4SE  03  LINES 
NOT  FIRST  LINE 
POSITION  CUSOR 
BRANCH  TO  POS  COL 
POSITION  CUSOR  LF 
POSITION  CUSOR 
ERASE  TEXT 
CONT  ERASING 
REPOSITION  CUSOR 
REPOSITION  CUSOR 
EXIT 


1 O 5 


Q74< ) Droaram  name 


1550 

DEFFN  ' 

105 

<054. 074. 084) 

: REM 

ENTRY 

1630 

PRINT 

HEX  <03) 

: REM 

CLEAR  CRT 

1540 

PRINTUSING 

1750.*  * 

: REM 

PRINT  TITLE 

1650 

COSUB  ' 

101 

<08. 06- 0.0) 

: REM 

POSITION  CUSOR 

1660 

PRINT 

•System  Now  Loadino  > ":Q64:" 

Routine"  : REM 

PRINT  DESCRIPTION 

1670 

GOSUB  ' 

lOl 

< 10. 06.. 0.0) 

: REM 

POSITION  CUSOR 

1680 

PRINT 

■Prooram  beino  Loaded  > ":Q74 

: REM 

PRINT  PROG  NAME 

1690 

IF 

084 

<>  "1000" 

THEN 

1710  : REM 

NOT  PROG  OVRLY 

1700 

LOAD 

DC  T #0.  074  lOO  . 5999 

1710 

IF 

084 

<>  "6000* 

THEN 

1730  : REM 

NOT  PLOT  OVRLY 

1750 

LOAD 

DC  T #0.  Q74  6000  . 7999 

1730 

LOAD 

DC  T #0.  074  8000 

1740 

RETURN 

: REM 

EXIT 

1750 

X T R A 

I N 

ING  SCHEDULE 

P R 

0 G R A M # 

1760 

REM  ** 

1770 

REM  ** 

1780 

REM  *■» 

Subroutine  E 0 0 

1790 

REM  ** 

Abstract  > 

1800 

REM  ** 

This  routine  will  allow  the 

user  to  select  the 

1810 

REM  ** 

tvoe  of  outout  format  to  Drint  the 

schedul e. 

1850 

REM  ** 

Variables  > 

1830 

REM  *-» 

1840 

REM  ** 

1850 

REM  ^**+****+*+W^^'*+’*~***1H**+*+*++*1HHH*1Hk*+*-** 

1850 

DEFFN 

' 500 

: REM 

ENTRY 

1870 

PRINT 

HEX <030 AO AO A) 

: REM 

CLR  CONSOLE 

1880 

PRINTUSING 

5050. " * 

*.  REM 

PRINT  MENU 

1890 

PRINTUSING 

5050. " * 

1900 

PRINT 

1910 

PRINTUSING 

5070. ’ " 

1950 

PRINTUSING 

5080.  " " 

1930 

PRINTUSING 

5090. " " 

1940 

PRINTUSING 

5100."  " 

1950 

PRINT 

1960 

GOSUB 

' lOl 

(14.1.1.0) 

: REM 

POSITION  CUSOR 

1970 

PRINTUSING 

5110." 

1980 

INPUT 

A1 

: REM 

INPUT  RESPONCE 

1990 

IF 

A1  < 1 

THEN 

5010  : REIM 

INVALID  RESPONCE 

2000 

2010 

2020 

2030 

2040 

2050 

2050 

2070 

2080 

2090 

2100 

2110 

2120 


IF  A1  < 5 THEN  2040 

PRINTUSING  2120. * - 
GOTO  1960 

REM  ** 

RETURN 

X The  Following  Output  Formats  Are  Available  # 

X For  Schedule  Output.  # 


X 

# 

1 

- Vertical  Format 

<80) 

<REMOTE> 

X 

# 

2 

- Vertical  Format 

< 132) 

<LPT> 

X 

* 

2 

- Horz.  Format 

<BO> 

<REMOTE> 

X 

# 

3 

- Horz.  Format 

(132) 

<LPT> 

X Enter  Format  Code  <l-4)  # 

X INVALID  ENTRY  RE-ENTER..  # 


REM  VALID  RFSPONCE 

REM  ERR  MSG 

REM  RE-ENTER  FMT  CODE 

REM  EXIT 


schedule; 


S v s + E*m 


< PLOT  _ F»L_  T > 


10O  X##  PROGRAM  > TRAINING  SCHEDULE  (PLDT.PLT)  VERSION  1.0  2200  T 7B0629 
llO  REM  ** 

120  REM  *****************^^**^^^^********4H*-MHHHHt-^**^-tt-**-*.(HMHMHMH»* 
130  REM  *»  ** 

1 AO  REM  **  THIS  PROGRAM  WILL  PRINT  THE  SCHEDULE  FOR  ALL  COURSE  ** 

150  REM  **  IN  THE  DATA  BASE.  ** 

160  REM  **  ++ 

170  REM  »»■»■»*■»»■»*•»*»■»«■•»♦■»■>>-»  ■»-»»♦«■««««  Htmmmm  muHum  » * »»».ihhmmhhhhhhI"»»«»<i<i«» 
1B0  REM  ** 

190  REM  ** 


1000 

DIM 

DO* ( 1 ) 4 . 04* ( 1 >18.D2*< 1 ) 5.02(2) .D3*<4>64 

• 

REM 

DEFINE  WRK  BUFRS 

1010 

DIM 

PI  *4 

: 

REM 

DEFINE  WRK  FLAGS 

1020 

REM  ** 

1030 

REM  ** 

1040 

GOSUB 

/ 

201 

; 

REM 

OPEN  FILES 

1050 

REM  ** 

1060 

COSIB 

/ 

202 

: 

REM 

LOAD  RECORD 

1070 

IF 

Q*  = "E*  THEN  1150 

z 

REM 

END  OF  CRS  FILE 

1080 

COSUB 

' 

1 10 

z 

REM 

CONVERT  TO  NUMERIC 

1090 

GOSUB 

t 

111 

z 

REM 

CMPUTE  NSRY  IbFO 

1 lOO 

GOSUB 

/ 

1 12 

z 

REM 

BUILD  SCHEDULE 

mo 

GOSUB 

/ 

113 

z 

REM 

SAVE  SCHEDULE 

1120 

REM  ** 

1130 

GOSUB  ' 205  : GOTO  1060 

z 

REM 

PRNT  SCH  FMT  1 

1140 

REM  ** 

1150 

GOSLB 

/ 

239  (1) 

* 

REM 

CLOSE  KFAM  FIL  1 

1160 

GOSUB 

/ 

239  (2) 

Z 

REM 

CLOSE  KFAM  FIL  2 

1165 
1 170 
1 180 
1190 
1200 


COM  CLEAR  M*( ) 


1210  REM 
1220  REM 


COSUB 
END 
REM  ** 
REM  ++ 
*■* 


102  (’MAIN  CONTROL" . "SCH. SCH* . " lOOO" ) 


REM  CLR  COMMON 
: REM  LOAD  SCHEDULE  PROG 
: REM  END  OF  PROGRAM 


1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 


Subroutine 
Abstract  > 

This  routine  will  display  a fatal  error  message 
console. 

Variables  > 

E*  > error  messaae 


0 3 2 


on 


DEV 


TO  RESTART*: 


REM  < 

REM  * 

REM  < 

REM  * 

REM  *-* 

REM  ■fHMHUHUHMHMHMWHHHHMMMMMHMHMHUHHMUHHWMHHMHMHHMl 
DEFFN  ' 32  (E*> 

SELECT  PRINT  005(64) 

PRINT  HEX (07) 

GOSUB  ' 101  (16.1.0.0) 

PRINT  " TOUCH  'RETURN' 

SELECT  P3 

GOSUB  ' 101  (14.1.1.0) 

PRINT 

GOSUB  ' 101  (14.1.0.0) 

PRINT  E* 

SELECT  PO 

KEYIN  FI*. 1420. 1420 
REM  ** 

HEX ( 030A0AOA ) 

* EXECUTE  THE  FOLLOWING  COMMANDS 

“ : CLEAR  V ( RETURN ( EXEC) )* 

* : CLEAR  P ( RETURN ( EXEC) >" 

* :load  dct  #o.  * : hex (22) : “schedule* : hex (22) : * ( return ( exec ) ) * 


GOTO  1340 


REM  ENTRY 
REM  SEL  CONSOLE 
REM  PRINT  TONE 
REM  POSITION  CUSOR 
REM  PRINT  RESTRT  MSG 
REM  SEL  PAUSE 
REM  POSITION  CUSOR 

REM  POSITION  CUSOR 
REM  PRINT  MSG 
REM  DE-SEL  PAUSE 
REM  RESPONCE  WAIT 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


TO 


: REM 
RESTART: " 


CLR  CONSOLE 


( RETURN ( EXEC ) ) 


i 


' 

t 


1470  PRINT  " :RUN 

1480  PRINT  HEX  < OAOA ) 

1490  STOP  "ENTER  COMMANDS  NOW. 


1500 

RETLFiN 

: REM  EXIT 

1510 

REM 

4h* 

1520 

REM 

1530 

REM 

Subroutine 

1540 

REM 

Function 

> 

s 

in 

REM 

** 

Cusor  Address  and  Screen  erase 

1560 

REM 

Varaibles 

> 

1570 

REM 

Q1  > 

row  position  ! 

03  > 

lines  to  erase 

1580 

REM 

•th* 

02  > 

col  position  ! 

04  > 

char(s)  erase 

1590 

REM 

01#0  > 

cusor  vert  ! 

02^(>  > 

cusor  horz 

l&OO 

REM 

Q3^()  > 

line  ers  ! 

04^ ( ) > 

micro  cmn  d b u f r 

1610 

REM 

** 

05  > 

line  indx  ! 

1620 

REM 

1 O 1 


1630 
1040 
1650 
1660 
1070 
1080 
1090 
1700 
1710 
1 750 
1730 
1740 
1750 
1700 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1800 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1900 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2000 


DEFFN  ' 
DIM 

I N I T < OA  ) 
I N I T < 09 ) 
INIT ( 20 ) 


IF 
IF 

FOR 
IF 

♦GID 
GOTO 
♦GIO 
♦GIO 
♦CIO 
NEXT 
♦CIO 
♦CIO 
RETURN 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *♦ 
REM 


lOl  (01.02.03.04) 

OlV( 16) 1. 02^(64 )1.03^( 64) l.Q4^( 10)1 
01  ♦<  ) 

02^(  > 

G3^(  ) 

01^(  1 ) 

02^(1 > 

03  = O THEN  1820 

04  <>  0 THEN  1740 

04 

05 


02 

03 


= HEX (Ol ) 

= HEX(OO) 

= O 
<>  0 
= 55 
= 1 TO 
05  <>  1 

ROW/0O5  ( AOOO . 04^  < ) ) Q 1 ♦ < ) < 1 . 0 1 > 
1790 

ROW/0O5  (AOOO.Q4^< ) )Q1^< )<2. 1> 
C0L/005  <AOOO.QA*<  ) )Qa*n<l.QS> 
ERS/OOS  (AOOO.G4^( ) )03^( ><1.Q4> 
05 

ROW/005  ( AOOO. 04  ♦ < ) ) 01 ♦ ( ) < 1 . 01 > 
C0L/0O5  ( AOOO . 04^  < ) ) 02^ ( > < 1 . Q2> 


THEN  1780 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


ENTRY 

DEFIN  LTUFRS 
INIT  ROW  BUFR 
COL 
ERS 
TOP 
BEG 


INIT 
INIT 
INIT 
INIT 
NO  LINES 
CHARS  TO 
ERS  REST 
ERASE  03 
NOT  FIRST 


BUFR 
BUFR 
OF  PAGE 
OF  LINE 
TO  erasf: 
ERASE 
OF  LINE 
LINES 
LINE 


Subroutine  > 

Function  > 

To  load  an  over  lay  Routine. 
Variables  > 

G6^( ) > description  ! 

OB^(  ) > beoin  line  number  ! 


POSITION  CUSOR 
BRANCH  TO  POS  COL 
POSITION  CUSOR  LF 
POSITION  CUSOR 
ERASE  TEXT 
CONT  ERASING 
REPOSITION  CUSOR 
REPOSITION  CUSOR 
EXIT 


1 O 2 


Q7^( ) orooram  name 


102 


DEFFN  ' 102  <Q6^.Q74.Q8^) 

PRINT  HEX (03) 

PRINTUSING  2060. " * 

lOl  (08. OS. 0.0) 

■System  Now  Loadino  > 

ioi  (lo.os.o.o) 

’Prooram  beino  Loaded  > •;Q7^ 
08^  <>  "lOOO"* 

DC  T #0.  07^  lOO  . 7999 
DC  T «0,  07^  8000 


GOSUB  ' 
PRINT 
GOSUB  ' 
PRINT 
IF 

LOAD 
LOAD 
RETURN 
X T R A 


G6*:  • Routine" 


THEN  2040 


: REM  ENTRY 
: REM  CLEAR  CRT 
: REM  PRINT  TITLE 
: REM  POSITION  CUSOR 
: REM  PRINT  DESCRIPTION 
: REM  POSITION  CUSOR 
: REM  PRINT  PROG  NAME 
: REM  NOT  PROG  OVRLY 


I N I N G 


SCHEDULE 


51  • 


P R O G R 


: REM  EXIT 

AM# 


10  4 


4 


i 


3070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2 ISO 
216-0 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
22S0 
226-0 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
236-0 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
246-0 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DEFFN 

IF 

REM  ** 


REM 

REM 

IF 


Subroutine 
Abstract  > 

This  routine  will 
number  of  decimal 
Variables  > 


104  (D1.D2.D3.A9) 


round  a number  to  the  specified 
digits. 


A9 

D1 

D4 

D4 

04 


1.00 


Tf-EN  2290  : 


D1  - I NT <D1 ) 

I NT <D4  * < lOt (D3+ 1 ) ) ) 

( <04/10)  - I NT <04/10) ) 


lO 


A9  = INT  <D1*< lOt  <D3) ) )*10t  < -D3) 


REM  ENTRY 

REM  I NIT  RETURN  VALUE 
REM  MIMIUM  VALUE 

REM  FTCH  DECML  VALUE 
REM  MOVE  DECML  POINT 
REM  FTCH  CHK  DIGIT 


! REM  FTCH  BASE  VALUE 


D4 

A3 


D2 
A9  «• 


THEN 

< < 1 . O ) * < 1 Of ( -D3 ) ) ) 


Subroutine 
Abstract  > 

This  routine 


numeri c 
Variables 


2560 

REM 

2570 

REM 

*-* 

2580 

REM 

2590 

REM 

2600 

REM 

26-10 

REM 

26-20 

REM 

26-30 

REM 

26*40 

REM 

26-50 

RFM 

2660 

REM 

RETURN 
REM  ** 

REM  ** 

REM  ** 

REM  *-* 

REM  ** 

REM  ** 

REM 
REM 
REM 
REM 
DEFFN 
CONVERT 
CONVERT 
CONVERT 
CONVERT 
CONVERT 
CONVERT 
CONVERT 
CONVERT 
REM  ** 

FOR  K = 1 TO  7 

CONVERT  H4<Q.K> 
CONVERT  R4(0.K> 
NEXT  K 
REM  ** 

RETURN 


Subroutine 
Abstract  > 

This  routine 


2290  : REM  ROUND  DOWN 
: REM  ROUND  UP 
: REM  EXIT 


1 1 O 


will  convert  input  data  record  into 


information  for  cal cul at i ons. 


110 
114(0) 
C24< 0) 
W4(Q) 
M14<Q) 
194(0) 
E 14(  0 ) 
S14<0) 
S24 ( O ) 


TO 

TO 

TO 

TO 

TO 

TO 

TO 

TO 


11(1) 
C2<  1 ) 
W<  1 ) 
Ml  ( 1 ) 
I9(  1 ) 
El  ( 1 ) 
Sl(l) 
S2<  1 ) 


TO 

TO 


H(l.K) 
R( l.K) 


REM  ENTRY 
REM  PLANNED  INPUT 
REM  CL AS  SI 2 
REM  CKS  LEN  (WKS) 

REM  MAN  POWER 
REM  INSTRUCTORS 
REM  TRAINERS 
REM  SUPPORT 
REM  MPA 

REM  BEG  C NT ACT  LOOP 
REM  C NT ACT  HRS 
REM  C NT ACT  RATIOS 
REM  CONT  CNTACT  LOOP 

REM  EXIT 


1 1 1 


will  perform  the  following  caluclations  - 
Instructor/Comp  : 

Course  Length  (days)  : 

AOB  (Average  On  Board)  : 

Sum  Type  Hours  < Inst/Comp ) 

Convening  Frequency 
Concurrent  Schedulino 


52 


v . v. 


2670 

2680 

2890 

2700 


Variables 


2710 

DEFFN  ' 111 

REM 

ENTRY 

2720 

W2<  1 ) 

* W< 1 )*7-2 

REM 

CRS  LEN  (DAYS) 

2730 

0<  1 ) 

* Il(l)*W2(l)/365 

REM 

AOB 

2740 

S(  1 ) 

= 0 

REM 

INIT  TYPE  HRS 

2750 

REM  ** 

2760 

FDR 

K = 1 

TO  7 

REM 

BEG  RATIO  LOOP 

2770 

IF 

H< 1 . K ) = 0 

THEN 

2830 

REM 

NO  HRS 

2780 

IF 

R(l.K)  = 0 

THEN 

2830 

REM 

NO  RATIO 

2790 

A2  = 

C2< 1 )/R< l.K) 

REM 

CMPUT  QUOTA/RATIO 

2800 

GOSUB 

7 104  (A2.5. 1.A9) 

REM 

ROUND  OUOTA/RATIO 

2810 

GOSUB 

' 104  (A9.3.0.A9) 

REM 

ROUND  OUOTA/RATIO 

2820 

S<  1 ) 

* S< 1 ) ♦ (A9*H( l.K) ) 

REM 

SUM  TYPE  HOURS 

2830 

NEXT 

K 

REM 

C.ONT  RATIO  LOOP 

2840 

REM  *+ 

2850 

A2  = 

11(1) /C2< 1 ) 

REM 

NUM  OF  CLASSES 

2860 

GOSUB  ' 104 

(A2.  1 

. 0 . A9 ) 

REM 

ROUND  TO  WHOLE 

2870 

C4<  1 ) 

= A9 

REM 

STOR  # OF  CLAS 

2880 

C5(  1 ) 

= 50/C4< 1 ) 

REM 

2890 

C6(  1 ) 

= W<1)/C5<1) 

REM 

2900 

I2<  1 ) 

= <S<1)*1.10)  / (C5( 1 >*25*.B8> 

REM 

# OF  INSTRUCTRS 

2910 

GOSUB  ' 104 

< I2<1>. 1.0. A9> 

REM 

ROUND  # OF  INSTS 

2920 

13(1) 

= A9 

REM 

STOR  # OF  INSTS 

2930 

REM  ** 

2940 

E2  = 

C6< 1 )/2 

REM 

2950 

E3<  1 ) 

= I NT  <C6( 1 )/2) 

REM 

2960 

IF 

E3(  1 ) 

-E2  >=  0 

THEN 

2980 

REM 

2970 

E3(  1 ) 

= E3(l)  ♦ 1 

REM 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

305,0 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3£*»0 

3250 

3260 


REM  EXIT 


RETURN 
REM  «+ 

REM  ** 

REM  Subroutine  mute ihhhhhhhhhhhhhhi « tm»  Mt« tnnm » m <t « <m <hhhhhhhh» 

REM  ++  Abstract  > 

REM  **  This  routine  will  build  a schedule  for  the  current 
REM  course  and  stor  the  irlf ormation  into  schedule  buffer 

REM  ++  for  ?■*  :raos  on  disk  and  for  later  Drocessino. 

REM  **  Vanabi  _ „ > 

REM  **  S8*()  > schedule  buffer  ! 

REM  *+ 

REM  ** 

REM  s^**^**^******^**-*^****^**^*******-*--*-*-#-**-*-* 

DEFEN  ' 112 
I NIT  < 30)  SB*(> 

J5  = 1 

IF  04(1X50  THEN  3250 

C4=C4  < 1 >-50 
C4< 1 )=C4( 1 )-C4 
C9=INT  < 50/C4) 

5=1 


REM  ENTRY 

REM  CLR  SCH  BUFFER 

REM 

REM 

REM 

REM 

REM 

REM 


REM  ** 
FOR 


NEXT 
REM  *4 


J1=J5  TO  C4 
S8$> < 2 . S ) = " 1 " 
S=S+C9 
J1 

S2= I NT  < C5( 1 ) ) 
C5< 1 ) =S2 


THEN  3350 
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THEN  3350 
THEN  3340 


I 


I 


3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3350 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3450 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3550 

3570 

3580 

3590 

3500 

3510 

3520 

3530 

3540 

3550 

3550 

3570 

3580 

3590 

3700 

3710 

3720 

3730 

3740 

3750 

3750 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3850 


IF 

IF 

GOTO 

REM  ** 


REM  * 
FOR 


C5<  1 )=S2M 

S3=C4< 1 >*C5< 1 ) 

S3<=50 

S2<>  O 

C5( 1 > = 1 

3350 

C5< 1 )=S2 
S=1 

J 1 =J5  TO  C4< 1 ) 
S8*< l.S)=" 1" 
S=S+C5< 1 ) 

J1 


NEXT 
REM  ** 
RETURN 
REM 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM  EXIT 


Subroutine 
Abstract  > 

This  routine 
disk. 

Variables  > 


will  save  a schedule  buffer  on  the 


DEFFN  ' 113 
DIM 

D3* ( 4)54 

REM 

REM 

ENTRY 

DEFN  I/O  BUFFER 

MAT  COPY 

Cl*< ) < < Q- 1 >*4+1. 

4>  TO  D3*< ) < 1 . 4> 

REM 

LOAD  CDP 

MAT  COPY 

S8*<  XI.  100>  TO 

D3*< ) <5. 100> 

REM 

LOAD  SCH  BUFFER 

REM  ** 

GOSUB  ' 232 

<2.0. Cl*) 

REM 

FIND  OLD  REC 

IF 

Q*  = "N" 

TEEN  3540 

REM 

NO  SUCH  REC 

IF 

Q*  = “ " 

THEN  3550 

REM 

REC  FOUND 

GOSUB  ' 032 

<"  KFAM  FINDOLD 

ERROR  ...  <113)") 

REM 

FIND  OLD  ERROR 

GOTO 

3590 

REM 

BRNCH  TO  EXIT 

REM  ** 

GOSUB  ' 114 

• 

• 

REM 

FIND  NEW  FIL  SPACE 

REM  ** 

LIMITS  T 

#5.  S4.S5.S5 

: 

REM 

FTCH  SCTR  ADRS 

DATA  SAVE 

BA  T#S.  (S5.S5) 

D3*<  ) 

: 

REM 

SAVE  BUFFER 

REM  ** 

RETURN 

• 

• 

REM 

EXIT 

REM  ** 

REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DEFFN  ' 114 
DATA  LOAD 
DATA  LOAD 
REM  ** 

IF 


Subroutine 
Abstract  > 

This  routine 
data  base. 
Variables  > 


1 1 4 


will  find  new  record  in  the  SCHEDULE 


DC 

DC 

D1  > 

TB* 

T4* 


OPEN  T #5.  "PLOT. DEL' 
#5.  Dl*O.Dl 


D1*<D1 ) 


TEEN  3940 


REM 

REM 

REM 

REM 

REM 

REM 


ENTRY 
OPEN  DEL 
LOAD  DEL 


FILE 

BUFR 


NO  PREVIOUS  SPACE 
SET  KFAM  DEL  FLC 
SET  KFAM  ADRS  PNTR 
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■j'r.-v.v’1,: 


3870 

3B80 

3830 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

406-0 

4070 

4080 


Dlt(Dl)  = "OOO" 

01  = Dl  - 1 
DBACKSPACE  #6.  BEG 
DATA  SAVE  DC  #€..  DltO.Di 
GOSUB  ' 234  (2.0.Clt.0) 

GOTO  3950 

REM  ** 

COSUB  ' 233  < 2 . 0 . C 1 $ . O ) 

IF  Q*  = " ” THEN  3980 

GOSUB  ' 032  ("  KF AM  FINDNEW  ERROR...  <114)*') 

REM  ** 

RETURN 
REM  ** 

REM  *■* 

REM  •**  Subroutine  ^^HHh*****#***#*****#**#******- 
REM  **  Abstract  > 

REM  *■*  This  routine  will  select  an  ALL  or  PART 
REM  **  oeneration  of  the  schedule. 

REM  **  Variables  > 

REM  ** 

REM  *■* 

REM  ^****^<HHH»*************#************<HI’«-tt*** 


233  (2.0. Clt. O) 

Ot  = “ ” 

032  ("  KF AM  FINDNEW  ERROR. 


THEN  3980 
<114)*'  ) 


REM  CLR  DEL  BUF  ELMNT 
REM  DCRMNT  DEL  BUF  IDX 
REM  RE-POSITION  FILE 
REM  RE  SAVE  DEL  BUFR 
REM  FINDNEW (HERE) 

REM  BRNCH  TO  EXIT 

REM  FIND  NEW 
REM  SPACE  FOLIND 
REM  FINDNEW  ERR 

REM  EXIT 


Subroutine  ♦*  H » H ISO 

Abstract  > 

This  routine  will  select  an  ALL  or  P ART  mode  for  the 
generation  of  the  schedule. 

Variables  > 


4090 

DEFFN  ' 

150 

REM 

ENTRY 

4100 

IF 

Pit  <>  "ALL" 

THEN 

4170 

REM 

TST  FOR  ALL 

4110 

GOSUB  ' 

237 

< 1 ) 

REM 

FIND  NXT  CRS 

4120 

IF 

Ot  = ' * 

THEN 

4410 

REM 

BRNCH  TO  EXIT 

4130 

IF 

Ot  = "E“ 

THEN 

4410 

REM 

BRNCH  TO  EXIT 

4140 

GOSUB  ' 

032 

< * KFAM  FIND  NEXT  ERROR.. 

. (150)") 

REM 

LOOKUP  ERROR 

4150 

GOTO 

4410 

REM 

BRNCH  TO  EXIT 

4160 

REM  ** 

4170 

IF 

Pit  = "PART" 

THEN 

4320 

REM 

TST  FOR  PART 

4180 

PRINT 

FtEX  < 030A0A0A ) 

REM 

CLR  CONSOLE 

4190 

GOSLB  ' 

lOl 

(5.  1.0.0) 

REM 

POSITION  CUSOR 

4200 

PRINTUSING 

4420. " " 

REM 

PRNT  MSG 

4210 

PRINTUSING 

4430." 

4220 

INPUT 

Pit 

: 

REM 

INPUT  RESPONCE 

4230 

REM  ** 

4240 

IF 

Pit  <>  "Y" 

THEN 

4310 

REM 

NOT  ALL 

4250 

Pit  = "ALL* 

REM 

SEL  ALL  FLAG 

4260 

GOSUB  ' 

235 

( 1 ) 

• 

REM 

FIND  FIRST  CRS 

4270 

IF 

Ot  = " " 

THEN 

4410 

• 

m 

REM 

BRNCH  TO  EXIT 

4280 

GOSUB  ' 

032 

(*  KFAM  FIND  FIRST  ERROR. 

..  (150)") 

REM 

LOOKUP  ERROR 

4290 

GOTO 

4410 

m 

• 

REM 

BRANCH  TO  EXIT 

4300 

REM  ** 

4310 

Pit  = "PART" 

a 

REM 

SEL  PART  FLAG 

4320 

GOSUB  ' 

151 

<Clt) 

REM 

ENTER  CDP 

4330 

IF 

Clt  <>  "STOP" 

THEN 

4360 

REM 

NOT  END  OF  LIST 

4340 

Ot  = "E" 

REM 

SET  EOF  FLAT 

4350 

GOTO 

4410 

REM 

BRANCH  TO  EXIT 

4360 

GOSUB  ' 

232 

( 1.0. Clt) 

REM 

FIND  OLD  CRS 

4370 

IF 

at  = ■ * 

THEN 

4410 

REM 

BRNCH  TO  EXIT 

4380 

PRINT 

HEX<07) : "RE -ENTER.. ." 

a 

a 

REM 

INVALID  CDP 

4390 

GOTO 

4320 

a 

REM 

RE-ENTER  CDP 

4400 

REM  ** 

4410 

RETURN 

a 

a 

REM 

EXIT 

4420  X Do  you  wish  to  have  ALL  schedules  printed  # 

4430  X Enter  (Y  - yes  or  N - no) > # 

4440  REM  ** 

4450  REM  ** 


1 5 1 
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I I 
I I 


1 


4470  REM 
4480  REM 
4490  REM 
4500  REM 
4510  REM 
4520  REM 
4530  REM 
4540  DEFFN 
4550  GOSUB 
4560  PRINT 
4570  GOSUB 
4580  PRINT 


Abstract  > 

This  routine  will  allow  the  CDP  number  to  be 
input  and  verified  for  valid  syntax. 
Variables  > 


151  <C1*> 

101  ( 14. 1 f 1.0) 

HEX(OAOA) 

101  <14.1.0.0) 

■ Enter  CDP  Number  (STOP  to  Stop)  -- 


REM  ENTRY 
REM  POSITION  CUSOR 
REM  FOR  TC  USE 
REM  POSITION  CUSOR 
REM  PRNT  PROMPT 


4590 

INPUT 

Cl* 

: 

REM 

INPUT  RESPONCE 

4600 

REM  ** 

4610 

FOR 

I = 1 

TO  4 

REM 

BEG  SYNTAX  LOOP 

!! 

i 

4620 

IF 

STR<C1*. I. 1 ) 

> "Z" 

TEEN 

4660 

• 

a 

REM 

INVALID  CHAR 

4630 

IF 

STR<C1*. I.  1 ) 

>=  "A" 

THEN 

4700 

a 

REM 

VALID  CHAR 

4640 

IF 

STRICl*. I. 1 ) 

> "9" 

THEN 

4660 

REM 

INVALID  CHAR 

4650 

IF 

STR<C1*. I. 1 ) 

>=  “0" 

THEN 

4700 

• 

• 

REM 

VALID  CHAR 

4660 

PRINT 

HEX  <07) 

RE-ENTER. 

N 

a a a 

a 

REM 

INVALID  CDP 

4670 

I = 

4 

REM 

SET  END  OF  LOOP 

: 

4680 

NEXT 

I 

REM 

TERMINATE  LOOP 

4690 

GOTO 

4570 

REM 

RE-ENTER  CDP 

4700 

NEXT 

I 

REM 

CONT  SYNTAX  LOOP 

4710 

REM  ** 

h 

4720 

RETURN 

; 

REM 

EXIT 

4730  REM  ** 

4740  REM  ** 

4750  REM  ** 

4760  REM  ** 

4770  REM  ** 

4780  REM  ** 

4790  REM  ** 

4800  REM  ** 

4810  REM  ***hhhhmmhhhhhhhhhhhmhmhhhmhhhhhhhhhhhhhhhhh»* 


Subroutine 
Abstract  > 

This  routine  will  ooen  the  nessarv  KFAM  files. 
Variables  > 


2 O 1 


4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 


DEFFN 
PRINT 
GOSUB 
PRINT 
GOSUB 
PRINT 
INPUT 
REM  ** 


201 


101 


101 


4900 

GOSUB  ' 

239 

< 1 ) 

4910 

GOSUB  ' 

230 

<1.1.2. l.Fl*> 

4920 

IF 

Q*  = * * 

4930 

GOSUB  ' 

032 

< ■ KFAM  OPEN 

4940 

REM  ** 

4950 

GOSUB  ' 

239 

< 2) 

4960 

GOSUP  ' 

230 

<2.4.5. l.F2*> 

4970 

IF 

0*  * ■ ■ 

4980 

GOSUB  ' 

032 

< * KFAM  OPEN 

4990 

REM  ** 

5040 

RETURN 

5050 

REM  ** 

5060 

REM  ** 

HEX  < 03CAOA0A ) 

<5. 1.0.0) 

• MOUNT  SCHEDULE  DATA  DISK " 

<8.  1.0.0) 

" TOUCH  'RETURN'  WHEN  READY..": 

A* 


THEN  4950 
1“  ) 


THEN  5040 


REM  ENTRY 
REM  CLR  CONSOLE 
REM  POSITION  CUSOR 
REM  PRINT  PROMPT 
REM  POSITION  CUSOR 
REM  PRINT  PROMPT 
REM  RESPONCE  WAIT 

REM  VERIFY  CLOSED 
REM  OPEN  DATA  BASE 
REM  FILE  OPENED 
REM  PRINT  ERR  MSG 

REM  VERIFY  CLOSED 
REM  OPEN  PLOT  FILE 
REM  FILE  OPENED 
REM  PRINT  ERR  MSG 

REM  EXIT 


5070 

5080 

5090 

5100 


REM  ** 
REM  ** 
REM  ** 
REM  ** 


Subroutine 
Abstract  > 

This  routine  will  load  a record  from  the  data  base. 
Variables  > 
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2 0 2 


* zy 
vU'.V 


vKi 


UPBBi 


5110  REM  ** 

5120  REM  ** 

5140  DEFFN  ' 202  ; REM  ENTRY 

5150  GOSUB  ' 150  : REM  FIND  NXT  CRS  REC 

5150  IF  O*  - *E“  THEN  5280  : REM  BRNCH  TO  EXIT 


5170 

KEYIN 

F*.  5180.  5180 

5180 

IF 

F*  > HEX  < IF) 

5190 

Q*  = “E“ 

5200 

GOTO 

5280 

5210 

REM  ** 

5220 

DATA  LOAD 

DC  #2  . Cl*<  >.N1*< ) 
. C2*().  W*<) 
. Ml*O.I9*<) 

5230 

DO*< 1 ) = C1*(Q) 

5240 

D4*  < 1 ) = T*(Q) 

5250 

D2*< 1 ) = W*<Q) 

5250 

CONVERT 

D2*<1)  TO  D2< 1 ) 

5270 

D2<2)  = D2< 1 )*7-2 

5272 

D8  = Q 

5280 

RETURN 

: GOTO  5220  : REM  INTER UP T 

THEN  5220  : REM  NOT  CNTRL  CHAR 
: REM  SET  EOF  FLAG 
: REM  BRNCH  TO  EXIT 

. TSO.IltO 
. R*<>.  H*<) 

.El*< ).S1*<  >.S2*< ) 

: REM  FETCH  CDP 
: REM  FETCH  TITLE 
: REM  FETCH  CRS  LEN 
: REM  CRS  LEN  (WKS) 

: REM  CRS  LEN  (DAYS) 

: REM  SAVE:  DATA  POINTR 
: REM  EXIT 


SCHEDULE  Svs-t  Bm 


(FILE. INI > 


X##  PROGRAM  > SCHEDULE  PROGRAMMING  (FILE. INI ) 3/7/79 

REM  ** 

REM  ** 

REM  **  ABSTRACT  #hhhhhhhmhmhhhhhmhhhmhhhhhhhhhhhhhhh|"** 
REM  ** 

REM  **  This  program  will  initialize  all  data  base 

RE}«f<Ht  files  needed  by  the  SCHEDULE  programming 

REM'*"*  system. 

REM  **  * 

REM  **  NOTE. 


REM  **  oarameters  such  as- 

REM  **  * disk  address: 

REM  **  * max  number  of  records  in  data  base: 

REM  **  * max  number  of  records  in  delete  file: 

REM  •*-*  * other  KFAM  (kir  or  kdr)  parameters: 

REM  **  Should  only  be  modified  by  a person  fimilar 

REM  **  with  the  initializino  of  KFAM- 3 data  files. 

REM  *”* 

REM  *-»^^**********^**HHt****^^**-»-******-»**'«-»-*HHI-***'*HMHI- 
REM  ** 

REM  ** 


DIM  YO(O)  : REM  FILE 

DIM  PIS (250) 3 : REM  SYS  D 

DIM  P1*8.P2*8  : REM  DATA 

DIM  P3S8.PAS8  : REM  PLOT 

PI  = 150  ; REM  MAX  R 

P2  = 250  ; REM  MAX  R 

PIS  = "SCHEF101 " : REM  DATA 

P2S  = "SCHEK 101 " : REM  KEY  F 

P3S  = “PL0TF101 n : REM  PLOT 

PAS  = "PL0TK101 ” : REM  KEY  F 

SELECT  #1  BIO  ; REM  SEL  K 

SELECT  #2  BIO  : REM  SEL  K 

SELECT  #3  BIO  : REM  SYS  D 

PRINT  HEX  < 03) 

GOSUB  '032< "PGM  READY  (RETURN)"."  ") 


REM  FILE  STATUS  BLFR 
REM  SYS  DEL  BUFFER 
REM  DATA  BASF  FILNAMS 
REM  PLOT  BASE  FILNAMS 
REM  MAX  REC  DATA  BASE 
REM  MAX  REC  DEL  FILE 
REM  DATA  FILE  NAME 
REM  KEY  FILE  NAME 
REM  PLOT  FILE  NAME 
REM  KEY  FILE  NAME 
REM  SEL  KFAM  USER  FILE 
REM  SEL  KFAM  KEY  FILE 
REM  SYS  DELETE  FILE 


REM  ** 
REM  ** 
REM  ** 


INITIALIZE  DELETE  FILES 


PS  = INT ( <P2*A)/253)  + 5 
INIT(OO)  P1SO 
P3  x O 

OATA  SAVE  DC  OPEN  T #3.P5. "SC HE. DEL" 

DATA  SAVE  DC  #3.  P1SO.P3 

DATA  SAVE  DC  #3.  END 

DATA  SAVE  DC  OPEN  T #3. PS. "PLOT. DEL" 

DATA  SAVE  DC  #3.  P1*().P3 

DATA  SAVE  DC  #3.  END 


REM  **  INITIALIZE  DATA  BASE 

REM  ** 

COSUB  ' 180(P1*.P2*. 1.2. "A". 1. 120. 2. A. 3. PI. 3. RO) 

IF  RO  * O THEN  070  : REM  FILE  INITIALIZED 

COSUB  ' 032  ("FILE  INIT  ERR". PI*):  REM  PRNT  ERR  MSG 
STOP  "CHECK  GOSUB  ' 180" 

REM  ** 

REM  ** 

REM  **  INITIALIZE  PLOT  FILE 


660  REM  ** 

670  GOSUB  ' 180<P3*.P4*. 1.2. "N“. 1.256. 1.4.0. Pi.  3.R0) 

680  IF  RO  - O THEN  740  : REM  FILE  INITIALIZED 

690  GOSUB  ' 032  < "FILE  INIT  ERR".P3*l;  REM  PRNT  ERR  MSG 
700  STOP  "CHECK  GOSUB  ' ISO" 

710  REM  ** 

720  REM  **  FILES  INITIALIZED 

730  REM  *-» 

740  GOSUB  ' 032  < “NORMAL  PGM  END"."  ") 

742  LIST  DC  T #2 

7 SO  END 
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lOOO  X##  PROGRAM  > CRT/LPT  UTILITITES  (PRNT.UTL)  VERSION  1.0  2500  T/VP 
1055  DIM  E424.E0424 
10€-0  DEEFN  '032(E4.E04) 

: SELECT  PRINT  005(80) 

: PRINT  HEX (0700) 

1075  SELECT  P2 

I GOSUB  '101(1. 40.1,24) 

: PRINT 

: GOSUB  '101(1.40.0.0) 

: SELECT  P3 
: PRINT  E4 
: SELECT  PO 
: KEYIN  F04. 1120.1120 
: GOTO  1075 

1120  GOSUB  '101(1.40.1.24) 

: PRINT  E04 
: RETURN 

1200  DEFFN  '101(01.02.03.04) 

: DIM  014(24)1. 021; < BO ) 1 . 034 ( BO ) 1 . 04$ <10)1 
) INIT(OA)Q14( ) 

: INIT(08>0240 
: INIT<20)034( ) 

: 014( 1 )=HEX(01 ) 

: 024 ( 1 ) =HFX ( OO ) 

: IF  03=OTHEN  1200 
1 IF  0400THFN  1250 
: 04=81-02 
1250  FOR  05=1 TO  03 

: IF  0501 THEN  '370 

: 4G I CJROW/OOS ' jOFAOOO . 044 ( ) )Q14(  )<1.Q1> 

: GOTO  1275 

1 270  4<;  I PROW  ZOOS  < AOOFAOOO . 044  ( ) ) 0 1 4 ( ) <2.  1 > 

1275  4G IOCOL  /OOS(  AOCK).  044  ( ) )024<  )<1.Q2> 

: 4GI0FRS/OO5<  AOOO.()44(  ) )034(  XI  .Q4> 

: NEXT  05 

1200  4G I LIROW Z005 ( 4005A000 . 044  < ) >014(  X1.Q1> 

I 4G IOCOL ZOOS ( AOOO . 044  < ) ) 024  < ) < 1 . 02> ‘ 

: RETURN 

1355  DEFFN  '033 
: DIM  E2410 

: E24=HEX  ( 002020 0<  XX XXXX) ) 

1370  KEYIN  E24. 1370. 1370 
: STR(E24. 1. I )=HEX<FF) 

1380  4G I OTSTON/ 2 1 5 ( 12214100. E24) 

: 4IF  ON  Z215,  1450 
: SELECT  PRINT  005(801 
: KEYIN  F.24 . 1 400 . .1 380 
1400  IF  STR ( E24 .1.1) <HEX ( FO ) THEN  1410 
: PRINT  HEX (0700) 

14 tO  SELECT  P2 

: GOSUB  '101(1.40.1.40) 

I PRINT 

: GOSUB  '101(1.40.0.0) 

: PRINT  "PRINTER  NOT  READY..." 


SELECT  PO 
GOTO  1380 


1450  GOSUB  '101 <1.40. 1.40) 

: SELECT  PRINT  215U32) 

: RETURN 

1700  X##  PROGRAM  > KFAM  INITIALIZATION  (KFAM.INI)  VERSION  1.0  2200  T/VP 
2170  DIM  R1*B.R2*8.R4*.X 

2180  DEFFN  ' 180<R1» . R2*. R7. R8. R4*. R. R1 . R2. R3. R4. RO. R5. RO) 

: DIM  00*04 
; DIM  VI *8 
: DIM  K1*8.U1*8 

: DIM  X<>04.  X 1$2.  I1><  32)8.  73>8.  N3>8.  Hsfr2.  L4>1 . A(  15) . R<  15) 

: R0=0 
: Ult=Rlt 
: D2=R8 
: MAT  A=ZER 
: MAT  R = ZER 
: GOSUB  ' 193<RB.UU)>) 

2280  A(D2)=Y0<0) 

: C2=Y0< 1 ) 

: IF  Y0< 1 )>=OTHEN  2300 

: GOSL©  ' 032  < " I.ISFR  FILE  SCRATCHED"."  ") 

: R0=  1 
: GOTO  3430 

2300  D1=R7 
: K1*=R2* 

: GOSUB  ' 193<R7.K1H>) 

: A < D1 ) =YO<  O) 

: C1=Y0< 1 ) 

: IF  Y0< I ) >=OTHEN  2470 

: COSUB  ' 032  < "KEY  FILE  SCRATCHED".*  ") 

: RO=2 
: GOTO  3430 

2470  V1*=R44 
: U. Ut . U2=l 
: K3=0 

: IF  V1*="A"THEN  2580 
: IF  V1*="C"THEN  2580 
: IF  V1*="N"THEN  2770 
: IF  VI 4=  "M” THEN  2090 

: GOSUB  ' 0.32 < " INVALID  RECORD  TYPE"."  ") 

: R0=3 
: COTO  3430 

2580  Ul-Rl 
: U2=R2 
: X=U1*U2 
: IF  X<2THEN  2050 
: IF  V 1 " C " THEN  2040 

: X=X+3 

2040  IF  X<=250THEN  2770 

2050  GOSUB  '032< "BLOCKING  OR  LENGTH  INVALID"."  ") 

: R0=4 
: GOTO  3430 

2090  U=R 


) 


: IF  LK2THEN  2730 
*.  IF  LK=25STHEN  2770 

2730  GOSUB  '032<  "MULTI  SCTR  OUT  OF  RANGE" . " " 
: RO=S 
: GOTO  3430 

2770  U3=R3 

: IF  U3<  1 THEN  2BOO 
: IF  U3<=30THEN  2840 

2800  GOSIJB  ' 032 < "KEY  LEN  OUT  OF  RANGF"  . " ") 

: RO=E 
: GOTO  3430 


2B40  T5=U3+3 

: Vf.=  I NT  < H40/T5 ) 

; l>4=R4 

: IF  Vi*>*CrTHEN  2920 
: IF  V1*="C"THEN  2910 
: IF  U4<3THEN  2940 
2910  IF  U3+U4>UH2THEN  2940 
2920  IF  lJ3+U4>25fc*UTHEN  2940 

: IF  I NT  < U4/25€- ) = I NT  ( < U3+U4 ) / 250 ) THEN  2980 
2940  COSUB  ' 032 <" OVERLAP I NG  KEY"."  ") 

: R0=7 
: GOTO  3430 


2980  IF  C2=0THEN  3000 
: GOSUB  ' 185<U1*.R8> 
3000  U€.=R€. 

: U8= INT  < UO/U2+ . 999 ) 
: IF  U<2THEN  3040 
: U8=U8*U 
3040  U8=U8+2 

: IF  C2=0THEN  3100 
: IF  U8>A+2THEN  3200 
: U8=A+2 
: GOTO  3110 


3100  R < 132 ) =U8 
3110  IF  Cl =OTHEN  3200 
: GOSUB  ' 185<K11>.R7) 

: K2=A+2 

: X = I NT  < V6* . 75 ) - 1 
: Kl=INT<U6/X>+5 
: IF  K2>=K 1THEN  3240 
1 K3=l 
: GOTO  3240 

I 

3200  X = I NT  ( V€>* . €■ ) - 1 
: K2=INT  <UB/X ) +5 
; R(D1)=R(D1)+K2 
3240  IF  R(D1 )>A<D1 1THEN  3200 
I IF  R<D2) <=A<D1 )THEN  3320 

I 3280  GOSUB  '032< "FIL  SIZ  EXCDS  AVBL  SPACE",*  ") 

J R0=8 
: GOTO  3430 


3350  ON  R5+1COTO  3430. 3300, 3360. 3400. 3410 


'032<" INVALID  KFAM  FILE  TYPE*."  ") 
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GOTO  3430 


3400  GOSUB  '181(R7.R8> 
: GOTO  3430 

3410  GOSUB  ' 182( R7.  R8 ) 
: GOTO  3430 

3430  RETURN 


3530  DEFFN  ' 1 8 1 ( R7 . R8  > 

: DIM  00*2 . 03*2.  V5*  1 . VR*  1 . V0*2 . V2*2 . V3*2 . V6* 1 . T2*2 .T4*3 
: DIM  T5*30.  T7*30.  T2* ( 8 ) 2.  T ( 8 > . T8*l . 09*2.00* < 4 ) GO 
: IF  C.OOTHEN  3570 
: DATA  SAVE  DC  OPEN  T*#R7.  K2.  K I* 

: DSKIP  #R7. K2-2S 
: DATA  SAVE  DC  *#R7.END 
: DATA  SAVE  DC  CLOSE  #R7 
3570  IF  C2>0THEN  3580 


: DATA  SAVE  DC  OPEN  T*#R8.U8.U1* 
: DSKIP  #RR. U8-2S 
: DATA  SAVE  DC  *#R8.END 
: DATA  SAVE:  DC  CLOSE  #RR 
3580  Q2*=HEX<0000> 

: B I N < STR  < 02* , 2 ) ) =U- 1 
: XOR  < 02* . FF ) 

: Y=U8-3 
: X=INT(Y/256> 

: BIN<Q3*)=X 

: BIN(STR  ( 03*.  2)  ) =Y-256*X 
I BIN(VB*)=U2 
: V5*=V8* 

: BIN( STR (VI*. 2) ) *U1 
: X=INT (U4/2B6) 

: B I N ( STR (V1*,3))=X 
: BIN  (STR  (VI*.  4)  > =U4-256*X 
: B IN ( STR ( VI *. 5 ) > =U3 
3590  BIN(STR  (VI*.  6)  )=V6 
: V2*=HEX(0001 ) 

: Y=K2-3 
: X=INT ( Y/256) 

: BIN(V3*)=X 

: BIN(STR(V3*.2> )=Y-256*X 
: BIN(V6*)=U 
: T2*=HEX(0001 ) 

: to=i 

: V8=. 5 


: TB*=" X" 

: DATA  LOAD  DC  OPEN  T#R7.K1* 


3500 


3610 


DATA  SAVE  DC  *#R7. 02*. 03*. V5*. V8*. VO*. VI*. V2*. V3*. V6*. T2*» TO. T1 . T2. VB. T4*. T 
5*.T7*.T2*( >.T( ).TB* 

INIT (FF )QO*( > 

I N I T ( OO ) STR ( 00* ( 1 ) . 1 . U3  > 

QO*=HEX ( OOOl ) 

DATA  SAVE  DC  *#R  7. 09*.  00*  ( ) 

LIMITS  T#RB.U1*.X.Y.Z 
Y*Y-1 

QO* ( 1 ) =HEX ( AOFD) 

STR ( OO* ( 1 ) . 3 ) =02* 

STR ( OO*  < 1 ) . 5 ) =V5* 
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: STR<00*<1 >.&)*VB* 

: STR  (GO* ( 1 ) . 7) *V1* 

: STR  < 00*  ( 1 ) . 1 S ) 3 V€>* 

: DATA  SAVE  BA  T*#RB. ( Y. Y)GO*< ) 

; RETURN 

3730  OEFFN  ' 182<R7.R8> 

: DIM  Q2*2.03*2.V5*<A>i.V8*l.V2*2.V3*2.VE*l.T2*2 
: DIM  T8*<A>1.g6*A.VA*<A)2.V2*<A)2.09*2.00*<A>&0 
: IF  C1>0TFEN  3770 
: DATA  SAVE  DC  OPEN  T*#R7.K2.K1* 

: DSKIP  #R7. K2-2S 
: DATA  SAVE  DC  *#R7.END 
: DATA  SAVE  DC  CLOSE  #R7 
3770  IF  C2>0THEN  37BO 

: DATA  SAVE  DC  OPEN  T*#RB.U8.U1* 

: DSKIP  #RB. U8-2S 
: DATA  SAVE  DC  *#RB. END 
: DATA  SAVE  DC  CLOSE  #R8 
37B0  Q2*=HEX<0000> 

: BIN(STR<02*.2) )=U-1 
: XOR  <02*. FF) 

: INIT <FF  )V2* < ) 

: Y=U8-3 
: X = INT  < Y/2S&) 

: BIN<Q3*)=X 

: BIN<STR<G3*.2)  )=Y-25€.*X 
: BIN<V8*)=U2 
: FOR  X=1TD  A 
: VS*  < X > =V8* 

: NEXT  X 

: BIN' STR  < V 1 * . 2 ) ) =U1 
: X - I NT  ( LlA/256 ) 

: BIN<STR<V\*.3> )=X 
3790  BIN<STR<V1*. A) )=UA-2SS*X 
: B I N < S3 R(VI*.S> )=U3 
: BIN(STR(V1*.S> )=VS 
: V2*=HFX  <OOOt ) 

: Y=K2-3 
: X = INT  <Y/2S€>) 

: BIN( V3*)=X 

: B IN ( STR  < V3*. 2) ) =Y -2SE*X 
: BIN<Vf.*)=U 
: T2*=HFX  < OOOl ) 

: T0=  1 

: oo*=*  * 

: INIT  < FF ) VA* < ) 

: I N I T < SA ) T8*  < ) 

: DATA  LOAD  DC  OPEN  7#R7.K1* 

3800  DATA  SAVE  DC  *#fl  7.  02*.  03*.  VS* < ) . V8*.  VI*.  V2*.  V3*.  VS*.  T2*.  TO.  T8* < > . GO*.  VA* < ) 
V2*<  ) 

: INIT  < FF )QO*  < ) 

: I N I T < OO ) STR  ( OO*  ( I > . 1 . LI3  ) 

: 09*=HFX<  000.1) 

: DATA  SAVE  DC  *#R7. 09*. QO*< ) 

: LIMITS  T#R8.UI*.X.Y.7 
: Y=Y- 1 

: X1*=HFX  < AOFD) 

3810  X*=HEX  ( A002A002A001  AOO.l  AOOBAOO.l  A002) 

: *PACK  <F=X*!QO*<  IFROMX 1*.  02*.  VS*<  ) . V8*.  VI*. VS*.  V2*<  ) 


: DATA  SAVE  BA  T4>#RB.  (Y.Y)GO*<  ) 

: RETURN 

3950  DEFFN  '185<N*.Z> 

: LIMITS  T#Z.N*.X.Y.H 
: H=H-5 
: A=Y-X-1 
: IF  A=HTHEN  3950 
: DATA  LOAD  DC  OPEN  T#Z.N* 

: IF  H<OTHEN  3940 
: DSKIP  #Z.EfC 
: DATA  SAVE  DC  *#Z.N* 

3940  DSKIP  #Z . A -H- IS 

: DATA  SAVE  DC  *#Z.END 
: DATA  SAVE  DC  CLOSE  #Z 
3950  RETURN 

4000  X##  PROGRAM  > FILE  STATUS  (FILE.UTL)  VERSION  1.0  5500  T/VP 

4580  DEFFN  ' 193<Y6. Y5*> 

: DIM  Yl*<  1€01S.Y51.8.Y3*1.Y4*5 
4300  DEFFN  X < X ) =VAL (STR < Yl*( Y4 ) . X+ 1 . 1 ) ) 

4310  DEFFN  Y ( Y> =556*VAL (STR ( Yl*< Y4> . Y. 1 > > +FNX ( Y ) 

: DATA  LOAD  BA  T#Y6. (O. Y9) Yl*( > 

4340  X ELSE  CONTINUT  # : REM  NO  DISK  ERROR 

4350  AND  (STR(Y1*(1).5.1).7F> 

: V7=VAL <STR(Y1*( 1 >.5.  1 > > 

: Y4=  1 

: AND  ( STR  ( Y 1 *1>  ( Y4 ) . 3.  1 ) . 7F  ) 

! AND  <STR(Y1*(Y4>.5. 1 ) . 7F ) 

1 YO  ( 6 ) =FNY  ( 5 > - FNY  ( 3 ) 

: Y54=Y5* 

: XOR  (STR(Y5*.5).Y5*> 

: Y3*=STR(Y5*.8. 1) 

: Y 4 1 =HE  X < OOOO ) 

: ADOC(Y4t. Y3*> 

: AD0C(Y4*. Y3*> 

4470  ADOC  ( Y44>.  Y34) 

: ADO(STR(Y4*.l.l).STR(Y4*.5.1)>  . 

: Y8=VAL (STR(Y4*. 1. 1 ) ) 

: Y8=Y8  - INT ( Y8/Y7 ) *Y7 
: Y0=Y8 

4530  DATA  LOAD  BA  T#Y6. < Y8. Y9> Yl*( ) 

: Y4=0 

: FOR  Y3= 1T0  16 
: IF  Y8+Y301THFN  4590 
: Y3=5 

4590  Y3*=STR(Y1*(Y3). 1. 1 ) 

: IF  Y 3*=HE X < OO ) THEN  4650 
: IF  Y3*=HEX( 10)  THEN  4630 
: IF  Y3SOHEX (11) THEN  4660 
4630  IF  STR  ( Yl*( Y3)  .9.8)  <>Y5$THFN  46E.0 
: Y4=Y3 
4650  Y3=16 
4660  NEXT  Y3 

: IF  Y3*=HEX(00)THEN  4770 
: IF  Y4O0THEN  4770 
: Y3*=HEX(00> 

: Y8=Y8 - 1 

: IF  Y8=Y0THEN  4770 
: IF  YB>=OTHEN  4530 
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Y8-Y7-1 
GOTO  4530 


4770  IF  Y3SOHEX  (OO)THEN  4810 
: YO< 1 ) =0 
: Y0<2>=0 
: Y0<  3) =o 
: Y0( 4) =0 
: YO< 5) =0 
: GOTO  5030 

4810  IF  Y3*OHEX  < 10)  THEN  4860 


: Y0< 1 ) = 1 

: IF  STR<Y1*<Y4>.2. 1 > =hEX  < 80  > THEN  4910 
: YO< 1 ) =Y0< 1 ) + 1 
4860  IF  Y3*OHEX<  11  )THEN  4910 
: Y0< 1 >=-l 

: IF  STR  <Y1*<Y4).2.1) =HEX  < 80) THEN  4910 
: Y0< 1 )=Y0< 1 ) -1 

4910  AND  <STR'Y1$<Y4) .3.1) .7F) 

: AND  ( STR  < Ylt  < Y4 ) . 5. 1 ) . 7F ) 

: Y0(2) =FNY  < 31 
: Y0<  3) =FNY (5) 

: Y0<  5) * < Y0<  3) -Y0<2) ) -1 
: DATA  LOAD  BA  T#Y6. ( Y0< 3) . Y9) Yl* < ) 

: Y3=Y4 
: Y4=  1 

: Y0< 4 ) =FNY (2) 

: Y4=Y3 


SCHEDUL  ET  Sys»t:  em 


C t>CH  - BASF.  > 


4MHM 


0100 

0110 

0.150 

0130 

0140 

0150 

0150 

0170 

0180 

0190 

0500 

0510 

0550 

0530 

0540 

0550 

0550 

1000 

1010 

1050 

1030 

1040 

1050 

1050 

1070 

1080 

1090 

1100 

lllO 

1150 

1130 

1140 

1150 

1150 

1170 

1180 

1190 

1500 

1510 


I 

I 

■ 

. i 


S 


7.##  PROGRAM  > SCHEDULE  MANAGEMENT  <SCH.RASE>  VERSION  1.0  7805:30 


REM 

REM  **  ** 
REM  **  THIS  PROGRAM  WILL  ALLOW  THE  COURSf  FILE  DAT A ** 
REM  **  BASE  TO  BE  MAINTAINED. 

REM  **  ** 
REM  **  THE  FOLLOWING  FUNCTIONS  ARE  A VA I ABLE  ...  ** 
REM  **  - DISPLAY  A COURSE  RECORD:  ** 
REM  **  - DISPLAY  ENTIRE  COURSE  FILE:  ** 
REM  **  - CHANGE  ANY  FIELD  IN  A COURSE  RECORD:  ** 
REM  **  - ADO  A COURSE  TO  THE  COURSE  FILE:  ** 
REM  **  - DELETE  A COURSF  FROM  THE  COURSE  FILE:  ** 
REM  **  ** 


REM  ** 

REM  ** 

PRINT  HE X < O 30A0A ) 

PRINT  " CODE  FUNCTION" 

PRINT  " 1 - DISPLAY  COURSE'  DATA 

PRINT  " 5 - CHANGE  COURSES 

PRINT  •’  3 - ADD  COURSES 

PRINT  " 4 - DELETE  COURSES 

PRINT  " 5 - DISPLAY  COURSE  FILE 

PRINT  " 5 - END  OF  MAINTENANCE 

INPUT  "ENTER  FUNCTION  C0DE".Z9 
IF  79<=0  THEN  1080 
IF  Z9>=7  THEN  1080 
REM 

REM  ! DISPLAY  ! CHANGE  1 ADO  ! DELETE  ! 

REM  ! ! ! ! ! 

ON  Z9  GOTO  5540  . 1390  . 1850  . .5310 

1550  . 1190 

REM  ! ! ! 

REM  ! DISPLAY  ! END  OF  EDT ! 

REM  ! WHOLE  FILE!  ! 

REM 


PR I NT  COURSE  F I LE 


1220  PRINT  HEX<03): ‘COURSES  IN  COURSE  FILE  (CDP  / CIN  / TITLE) ‘ 

1230  Z * 0 

1240  GOSUB  ' 230  < 1. 1.2. l.Fl*> 

1250  GOSUB  ' 235  (!) 

1260  7=0 

1270  IF  Q*=*  ‘ TWEN  1320 

; PRINT  "NO  COURSES  IN  COURSE  FILE" 

: GOTO  1350 

1280  GOSUB  ' 237  <1> 

1290  IF  0*="E"  THEN  1360 
1300  Z=Z+1 

: IF  Z<=13  THEN  1320 

1305  PRINT  HEX<03>: ‘COURSES  IN  COURSE  FILE  (CDP  / CIN  / TITLE)’ 

1310  INPUT  "WANT  TO  CONTINUE  DISPLAYING" . Y* 

: IF  Y*=  "N"  THEN  1370 

: z=o 

1320  DATA  LOAD  DC  #2.C1*( ) . Nl*( ) . T*( ) . I 1*( ) . C2*( ) . W*( > . R*() . H*( ) .Ml*<> f I9*( ) .El 
*( ).S1*( ).S2*< ) 

1330  PRINTUSING  1340.C1*(0) .N1*(Q> .T*(Q) 

1340  Z ####  / #######»  J IHMMMMMHMHMHMMMMMMt 

1350  GOTO  1280 

| ! 

1360  INPUT  "END  OF  FILE...  TOUCH  'RETURN'  TO  CONTINUE". Y* 

1370  GOSUB  ' 239(1) 

: GOTO  lOOO 

1380  REM  Zt 

I 


CHANGE.  COURSE  DATA 


f 


GOSUB  ' 230  (1. 1.2.1. Fit) 

INPUT  "ENTER  CDP  TO  BE  CHANGED". Cl* 

PRINT  HEX ( 03) 

GOSUB  ' 232  (1.0. Cl*) 

IF  Q*  = " " THEN  1430 

PRINT  HEX(07): "INVALID  CDP  RE-ENTER" 

PRINT  HEX(OCOC) 

GOTO  1400 

PRINT  HEX (Ol ) 

GOSUB  2€<30 

GOSUB  ' 101  <9. 1.0.0) 

PRINTUSING  1770."  " 

PRINTUSING  1780."  " 

PRINTUSING  1730."  ” 

PRINTUSING  180C>  " 

PRINTUSING  1810>  " 

PRINTUSING  1820."  " 

Il'PUT  " ENTER  CHANGE  KEY"  .K 
IF  K<0  THEN  1310 
IF  K>12  THEN  1510 
GOTO  1S20 

PRINT  " I NVAl.  I D CHANGE  KEY  ...  RE-ENTER" 

GOTO  1430 

GOSUB  ' 101  (3. 1.7.0) 

PRINT 

ON  K GOTO  1530. 1S&0. 1S70. 1580. 1590. 1SOO. 1S10. 1E70. 1580. 1330. 1700. 1740 
GOSUB  '231(1.0.0*) 

II'FUT  "ENTER  NEW  CDP"  . C1*(Q) 

GOSUB  ' 234 (1.0.C1*(0).0) 

DSKIP  #2.  IS 
IF  Q*= " * THEN  1710 

PRINT  HEX (07): "INVALID  CDP  ....  RE-ENTER" 

PRINT  HEX  < OCOC ) 

GOTO  1540 


RE-ENTER" 


INPUT  " ENTER  CIN".N1*(0> 

GOTO  1710 

INPUT  "ENTER  COURSE  SHORT  TITLE". T*(Q) 

GOTO  1710 

INPUT  "ENTER  PLAIMNFD  INPUT"  . 1 1*(0) 

GOTO  1710 

INPUT  "ENTER  CLASS  SIZE".C2*(Q> 

GOTO  1710 

INPUT  "ENTER  COURSE  LENGTH  IN  WEEKS  ".W*(Q) 
GOTO  1710 

INPUT  "ENTER  NO.  OF  PHASES ".P 
IF  P<*0  THEN  1E10 

FOR  K= 1 TO  P 

GOSUB  ' 101  (12.1.0.0) 


: PRINT  “ENTER  CONTACT  <RAT 10. HOURS)  FOR  PHASE  ":K: 

: INPUT  R*<Q.K).H*(Q.K> 

1650  NEXT  K 

16-60  IF  P = 7 THEN  1710 
: P=P+1 

: FOR  K1=P  TO  7 
: R*<Q.Kl)=-o" 

: H*<Q.K1 > = "0" 

: NEXT  K1 
: GOTO  1710 

1670  INPUT  "ENTER  MAN  POWER  ALLOWANCES* .M1*<Q) 

: GOTO  1710 

1680  INPUT  "ENTER  OTHER  INSTRUCTORS  AVAILABLE" . I9*<0> 

: GOTO  1710 

1690  INPUT  "ENTER  NO  OF  TRAINERS  AVAILABLE’. El* (O) 

: GOTO  1710 

1700  INPUT  "ENTER  NO  OF  SUPPORT  REQUIRED  AND  MPA" .S1*(Q> .S5*<Q> 

: GOTO  1710 

1710  Cl*  = C1*<Q) 

1750  DBACKSPACE  #5  . IS 

1730  DATA  SAVE  DC  #5. C 1* < ) . Nl* < > . T*<) . I 1*< ) . C5*< ) . W* < > . R*< ) . H* < ) . Ml* O . I9*< ) . El 
*( >.S1*< ).S5*< ) 

: GOTO  1 Alb 

17AO  II'E’UT  "WANT  TO  CHANGE  ANOTHER  COURSE *.Y* 

1750  IF  Y*=*Y"  THEN  1AOO 

1760  COSUB  ' 539  (1) 

: GOTO  lOOO 

1770  X#!KEY*  DATA  ITEM  ! KEY*  DATA  ITEM  ! KEY*  DATA  ITEM  ! 

1780  X# ! “==*====*“«====== =•= I ===*===*============ • ===*===«=========== i 

1790  X#!  1 * CDP  ! 5 * CIN  ! 3 * CRS  TITLE  ! 

1BOO  X#'  A * PLANNED  INPUT  f 5 * CLASS  SIZE  I 6 * CRS  LEN  <WKS>  ! 

1810  X#'  7 * CNTCT  RAT/HRS  ! 8 * TRAINERS  ! 9 * MAN  POWER  ! 

1850  X# I 10  * OTHER  INSTRS  111  * SUPPORT  • 15  * NO  CHANGES  ! 

1850  REM  Xt 


ADD  A COURSF 


* 


I860  GOSUB  ' 530  ( 1 - 1 . 2. 1 . Fit) 

1870  F5=0 

1880  INPUT  "ENTER  CDP  TO  BE  AD0ED".C14. 

1800  FOR  1=1  TO  4 

1900  IF  STR (Clt. 1. 1)  <=HEX<HF)  THEN  1930 
1910  IF  STR(Cl*.I.l)  >=HEX  ( SB ) THEN  1930 
1950  IF  STR < Cl*. I. 1 ) <=HEX ( 39)  THEN  1940 
t IF  STR <C14. 1 . 1 ) >=HEX <41 ) THEN  1940 
1930  PRINT  HEX (07): "INVALID  CDP ...  REENTER " 

: PRINT  HEX ( OCOC ) 

: GOTO  1880 

1940  NEXT  I 
: GOTO  I960 

1950  PRINT  HEX(07):" INVALID  CDP. . . REENTER" 

; PRINT  HEX (OCOC) 

: GOTO  1880 

1900  COSUB  ' 232  (l.O.Cl*) 

1970  IF  04.  = "N"  THEN  1980 

: PRINT  HEX (07): "DUPLICATE  CDP  RE-ENTER" 

: PRINT  HEX (OCOC) 

: GOTO  1880 

1980  DATA  LOAD  DC  OPEN  T #3. "SCHE.DEL" 

1990  DATA  LOAD  DC  #3.D1*().D1 
2000  IF  DlOO  THEN  2020 
2010  GOSUB  '233  (l.O.Clt.O) 

: GOTO  2000 


2020  T84>=  “ 1 “ 

: T44.=D14.(D1  ) 

: D14»(D1  ) ="000* 

: D1=D1 -1 

2030  DBACKSPACE  #3  .BEG 
2040  DATA  SAVE  DC  #3.D14>().D1 
2050  GDSUB  '234  (1.0.C14..0) 

2O€.0  IF  Q=1  THEN  2090 

2070  DATA  LOAD  DC  #2. Cl*( > .Nl*( > , T*( ) . I 1*< ) . C2*< ) . W*( ) ,R*< ) . H*< ) . Ml*( ) . I9*< ) .El 

t ( ).si*( ).s ) 

2080  DBACKSPACE  #2.  IS 
2090  COSUB  2140 

2100  DATA  SAVE  DC  «2.C1«< > .Nl«< ) rT«< > r I 1*< ) f C2*< > . W*<> .R*< > . H«< > .M1S< ) f 19*0 .El 
*<  ) . S14>(  ).S2*<  ) 

2110  INPUT  "WANT  TO  ADD  ANOTHER  COURSE". Y* 

2120  IF  Y*="Y“  THEN  1880 
2130  GOSUB  ' 239  (1) 

I GOTO  lOOO 


2140 

2150 

2160 

2170 

2180 

2190 

2200 


INPUT  "ENTER 
INPUT  "ENTER 
C1*<Q)»C1* 
IhPUT  "ENTER 
INPUT  "ENTER 
IhPUT  "ENTER 
II'F’UT  "ENTER 


CIN".N1*(Q) 

COURSE  SHORT  TITLE". T*(Q) 

PLANNED  INPUT". I1*(Q) 

CLASS  SIZE’.C2*(Q) 

COURSE  LENGTH  IN  WEEKS  ".W*(Q> 
NO.  OF  PHASES". P 
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: IF  P<=0  THEN  5200 
5210  FOR  K*1  TO  P 
2220  IF  K<=1  TNEN  2230 

: INPUT  “ENTER  LECTURE  RATIO  AND  HOURS  FOR  NEXT  PHASE  <R. H) • f R*<Q. K) , H*(Q. K) 

: GOTO  2240 

2230  INPUT  “ENTER  LECTURE  RATIO  AND  HOURS  FOR  FIRST  PHASE  <R.H) " .R*<Q.K> .H*(O.K 
) 

2240  NEXT  K 
2250  P=P+1 

: FOR  K1=P  TO  7 
: R*<Q.K1)=“0“ 

: H*<Q.K1>="0“ 

: NEXT  K1 

2250  INPUT  "ENTER  MAN  POWER  ALLOWANCES* .Ml t<Q) 

2270  INPUT  “ENTER  OTHER  INSTRUCTORS  AVAILABLE". I9*(Q) 

2280  INPUT  "ENTER  NO  OF  TRAINERS  AVAILABLE* . E1*(Q) 

2290  INPUT  "ENTER  NO  OF  SUPPORT  REQUIRED  AND  MPA* .S1*<0) .S2*(Q> 

I RETURN 

2300  REM  Zt 


DELETE  A COURSE! 


I 

< 


i 

t 

u 


2310  GOSUB  ' 230  < 1 . 1 . 2. 1 . FI*) 

: GOSUB  ' 230  <2.4.5. 1.F2*) 

2320  F5=0 

2330  INPUT  "ENTER  CDP  TO  BE  DELETED". Cl* 
2340  GOSUB  ' 231  <1.0.C1*> 

2350  IF  0*0"  " THEN  2360 
: IF  T8*<>" 1 " THEN  2360 
: GOTO  2370 

2360  PRINT  "COURSE  NOT  FOUND" 

: INPUT  "HIT  RETURN  KEY  TO  CONTINUE." . Y* 
: GOTO  2520 

2370  DATA  LOAD  DC  OPEN  T #3. "SCHE. DEL" 
2380  DATA  LOAD  DC  #3.Dl*O.Dl 
2390  D1=D1+1 

: IF  D1 >=250  THEN  2420 
: D1*(D1)=T4* 

2400  DBACKSPACE  #3  .BEG 
2410  DATA  SAVE  DC  #3.01*0.01 
2412  REM  ** 

2420  GOSUB  ' 231  (2.0. Cl*) 

: IF  0*0  " " THEN  2500 

2425  DATA  LOAD  DC  OPEN  T #6.  "PLOT. DEL" 

: DATA  LOAD  DC  #6.  D1*().D1 

2430  D1  = D1  + 1 

: IF  D1  > 250  THEN  2500 

: D1*<D1 > = T 4* 

: DBACKSPACE  #6.  BEG 

: DATA  SAVE  DC  #6.  Dl*O.Dl 

2440  REM  ** 

2500  INPUT  "DELETE  ANOTHER  COURSE ".Y* 

2510  IF  Y*=" Y"  THEN  2330 
2520  G Of  TUB  ' 239  <1) 

: GOSUB  ' 239  < 2 ) 

: GOTO  lOOO 


2530  REM  7.E 


I * 
[ | 


D I SPLAY  COURSE. 


2540  GOSUB  ' 230  < 1 . 1 . 2.  1 . Fl*> 

2550  INPUT  “ENTER  CDP  TO  BE  LOOKED  LIP”. C 1* 

2550  GOSUB  ' 232  <1.0. Cl*) 

2570  IF  Q$  = ” * THEN  2580 

: PRINT  HEX  <07 ) 1 “ INVALID  CDP RE-ENTER" 

: PRINT  HEX ( OCOC ) 

: GOTO  2550 

2580  PRINT  HEX  <03) 

: GOSUB  2620 

2590  INPUT  “WANT  TO  LOOK  UP  ANOTHER  COURSE " . Y* 

2C-G0  IF"  Y*=“Y”  TFIEN  2550 
2610  GOSUB  ' 239  < 1 ) 

: GOTO  1000 

2620  DATA  LOAD  DC  #2. Cl* < ) . Nl*< ) . T*< ) . 1 1*< ) . C2*< ) . W*<> .R*< ) . F*fc< ) . Ml*< ) . I9*< ) .El 
*<  >.S1*< ).S2*<  > 

2630  PRINTLISING  2720. T*(Q) 

2640  PRINT 

2650  PRINTUSING  2730. CDMG)  .N1*<G>  .T*<G) 

2660  PRINTLISING  2740. I 1*<G) .C2*<G) . W*<G> 

2670  PRINTUSING  2750,M11.<G) . I9*<Q)  .E1*<G) 

2680  PRINTLISING  2760.S1*<G).S2*<Q> 

2690  PRINTUSING  2770. R*<Q.  1 ) . H*<Q.  1) . R*<Q.  2)  .H* < Q.  2)  . R*<Q.  3) . F+SIQ.  3)  .R*<Q.  4) . F*t 
<0.4) 

2700  PRINTUSING  2780. R*<Q. 5) . H*<Q. 5) . R*<Q. 6) . H1UQ. 6) . R*<G. 7) . F+M Q. 7) 

2710  RETURN 

2720  X Data  Display  for  Course > IMHHMMHMMHMMMMMMHM* 

P7 "in  y rnP/rTN  mmmM / titi  p 

C f J3U  fm  L-Ur  / %_•  1 Is  mmmmmmmmmm  ttWtttF  / WTfWWWIfWw  I i I I > m m m WfrfTlfWWTfTFWwWWfUHTWlTff 

2740  X PLANNED  INPUT  #####  CLASS  SI7E  ..  ###  LENGTH (WKS)  ..  ### 

2750  X MANPOWER  ALLOWANCES  ###  INSTRUCTORS  . ###  TRAINERS  ### 

2760  X SUPPORT ###  MPA ### 

2770  XCONTACT  RATIO/HOURS  <###./####) .<###/####).<###/####>. <###/####) 

2780  X <###/####).<###/####).<###/####) 

2799  REM  X* 
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:-v' 


CUSQR  CONTROL. 


5800  DEFFN  ' 101 <01.05.03.041 

: DIM  01*<  lf>)  1 .05* <641  1 . 03*<64 ) 1 .044 < .10)1 
: INIT<0A>01*< ) 

: INIT<09)05*< ) 

: INIT<50)03*< 1 
: G1*<1  >=HEX<01  ) 

: Q5*< 1 >=HFX<0D> 

: IF  03=0THEN  5840 
: IF  G4O0THEN  5810 
; 04=65  -05 
5810  FOR  05=1 TO  03 

: IF  0501 THEN  5850 

: *GI0R0W/0O5<AO00.04*<  1 >01*< K1.G1> 

: GOTO  5830 

5850  *G  1 0R0W/005 < AOOO . 04*  < ) ) 0 1 * < ) <5 . 1 > 

5830  *C I OCOL /OOS < AOOO . 04*  O ) 05*  < K 1 . OSS 
: *G  1 0ERS/0O5  < AOOO . 04*  < ) )G3*<  )<1.Q4>-- 
: NEXT  05 

5840  *G 1 OROW/ 005 < AOOO . 04* < ) )G1*<  )<1.01> 

: *GI0C0L/005<A000.G4*< ) )05*< ><1.05> 

: RETURN 


SCHEDULE  Svs-teni (SCH.SCH> 


100 

no 

150 

130 

140 


MO 

520 

* in 


x## 

REM 

REM 

REM 

REM 


PROGRAM  > SCHEDULE  MANAGEMENT  (SCH.SCH)  VERSION  1.0  780530 


150 

REM 

* 

* 

ISO 

REM 

* 

TRAINING  SCHEDULE  MANAGEMENT 

* 

170 

REM 

* 

WRITTEN  BY 

* 

1 BO 

REM 

* 

Phil  Cooke 

* 

190 

REM 

* 

Ben  Lin 

* 

500 

REM 

* 

Chuck  Guitard 

* 

210 

REM 

* 

* 

520 

230 

240 

550 

250 


REM 

REM 

REM 

REM 

REM 


570 

REM 

This  Prooram 

will  create  and  maintain  a Train 

280 

REM 

Manaement 

Data  Base. 

290 

REM 

*-* 

300 

REM 

This  Prooram 

will  alow 

compute  and  display  a 

310 

REM 

*-* 

schedule 

work 

; sheet  and 

plot  schedule  chart. 

320 

REM 

330 

REM 

■W~» 

Description 

of 

Variables 

\ 

340 

REM 

350 

REM 

Cl$(2) 

4 

D 

RECORD  ID-  CDP 

350 

REM 

Nlt(2) 

8 

D 

CIN 

370 

REM 

-W“W 

T4(2) 

18 

D 

COURSE  TITLE 

380 

REM 

U~* 

114(2) 

5 

D 

PLANNED  INPUT 

390 

REM 

■W-* 

C24 ( 2 ) 

2 

D 

CLASS  SIZE 

400 

REM 

W4(2) 

2 

D 

COURSE  LENGTH  (WKS) 

410 

REM 

#-* 

R4(2.7) 

3 

D 

CONTACT  RATIOS 

420 

REM 

H4(2.7) 

4 

D 

CONTACT  HOURS 

430 

REM 

M14(2> 

3 

D 

MAN  POWER 

440 

REM 

194(2) 

3 

D 

INSTRUCTORS 

450 

REM 

E14(2) 

2 

D 

TRAINERS 

4CO 

REM 

■** 

S14<2) 

2 

D 

SUPPORT 

470 

REM 

S24(  2) 

2 

D 

MPA 

480 

REM 

W2 

COURSE  LENGTH  (DAYS) 

».•«  > 

HfcM 

0 

AOB 

500 

REM 

MEM 
Rf  M 
MEM 
Mf  M 


DISPLAY  PROGRAM  CONTROL  MENU 


1 1 I PRINT  005(80) 

SELECT  .NPirr  ooi 


REM  SEL  SYSTEM  OUTPUT  DEVICE 
REM  SEL  SYSTEM  INPUT  DEVICE 


w 9 f < O 

TRAINING  SCHEDULE  MANAGEMENT" 

•>.|  system  WILL  PERFORM  THE  FOLLOWING" 
t.  MAINTAIN  DATA  BASE" 

' M )fR  < E FEASIBILITY  STUDY" 

MINT  SCHEDULE  WORK  SHEET" 

» '"1  ITT  SCHEDULE" 

• IT  .TfCDU-E" 


. Ol 
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PRINT  "ENTER  COOE  FDR  DESIRED  FUNCTION  > 

INPUT  AS 

IF  A8< =0  THEN  1030:  IF  AB>=6  THEN  1030 
REM 

REM  ! MAINTANCE  ! FEASIB I LTY! WORKSHEET  !PLT  SCHED  ! EDIT  1 

REM  ! ! ! ! ! 

ON  AS  GOTO  1240  . 1250  . 1260  . 1270  . 128' 

REM  ! ! ! • • 

REM  ** 

REM  **  LOAD  OVERLAY 

REM  ** 

GOSUB  ' 102  ("DATA  BASE  MAINTENANCE" . "SCH. BASE" ." lOOO 
GOSLIB  ' 102  ("FEASIBILITY  STUDY".  "SCH.  FEAS" . * lOOO* ) 


EDIT  SCHED! 


GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 


•SCHEDULE  WORK  SHEET" . "SCH. WSHT* 


("PLOT  SCHEDULE", 
("EDIT  SCHEDULE" , 


•SCH. PLOT". "2000“ ) 
•SCH. EDIT". "lOOO" ) 


REM  ** 
REM  ** 


03 

04 

02*  ( ) 
04*  ( ) 


REM  ** 

REM  ** 

REM  **  Subroutine  > ******************************************* 

REM  **  Function  > 

RFM  **  Cusor  Address  and  Screen  erase 

REM  **  Varaibles  > 

REM  **  Q1  > row  position  ! 03  > lines 

REM  **  02  > col  position  ! 04  > charts 

REM  **  Ql*(  ) > cusor  vert  ! Q2*(  ) > cusor 

REM  **  03*0  > line  ers  ! 04*0  > micro 

REM  **  05  > line  indx  ! 

REM  ** 

DEFFN  ' 101  (Qt.Q2.Q3.Q4) 

DIM  01*(1&)1. 02* (54)  1 . 03* (54)  1 . 04* < 10U 

INIT(OA)  01*0 

INIT(09)  02*0 

INI  T ( 20 ) 03*0 

01*( 1 ) = HEX (01 ) 

02*  < 1 ) = HEX ( OD) 

IF  03  = O THEN  1630 


Subroutine  > ******************* 
Function  > 

Cusor  Address  and  Screen  erase 
Varaibles  > 

01  > row  position  ! 03 

02  > col  position  ! 04 

Ql*(  ) > cusor  vert  ! Q2*( ) 

03* ( ) > line  ers  ! 04* ( ) 

05  > line  indx  ! 


lines  to  erase 
char(s)  erase 
cusor  horz 
micro  cmnd  bufr 


= HEX (01 ) 
= HEX ( OD) 


♦GIO  ERS/005 
NEXT 


IF  04  <>  O 

04  = 65  - 02 

FT1R  05  = 1 TO  03 

IF  05  O 1 

*GIO  R0W/0O5  ( AOOO . 04* ( ) ) O 1 * ( ) < 1 . Q 1 > 
COTO  1600 

♦GIO  RDW/005  ( AOOO. 04* ( ) > 0 1 * < ) <2. 1 > 
♦GIO  COL/005  ( AOOO . Q4* ( ) ) 02* < XI. Q2> 
♦GIO  ERS/005  ( AOOO.  04* ( ) ) 03* (XI  . Q4> 
NEXT  05 

*GIO  ROW / 005  ( AOOO. 04* ( > ) O 1 * ( XI. 01 > 
♦GIO  COL  /005  ( AOOO.  04*  ( ) ) 02* (XI.  Q2> 
RETURN 
REM  ** 

REM  ** 

REM  **  Subroutine  > ihuhhhhhhhuhhhh 

REM  **  Function  > 

REM  **  j0  load  an  over  lay  Routii 

REM  **  Variables  > 

REM  **  06* < ) > description 


THEN  1630 
THEN  1550 


Subroutine  > ******** 
Function  > 

To  load  an  over  lay 
Variables  > 

06* < ) > description 


REM  ENTRY 
REM  DEFIN  BUFRS 
REM  I NIT  ROW  BUFR 
REM  INIT  COL  BUFR 
REM  INIT  ERS  BUFR 
REM  INIT  TOP  OF  PAGE 
REM  INIT  BEG  OF  LINE 
REM  NO  LINES  TO  ERASE 
REM  CHARS  TO  ERASE 
REM  ERS  REST  OF  LINE 
RFM  FRASE  03  LINES 
REM  NOT  FIRST  LINE 
REM  POSITION  CUSOR 
REM  BRANCH  TO  POS  COL 
REM  POSITION  CUSOR  LF 
REM  POSITION  CUSOR 
REM  ERASE  TEXT 
REM  CONT  ERASING 
REM  REPOSITION  CUSOR 
REM  REPOSITION  CUSOR 
REM  EXIT 


********************************************* 


THEN  1590 


lav  Routine. 


07*  < ) pr oo rain  name 


1730 
1740 
1750 
1760 
1770 
1780 
1790 
1 BOO 
1810 
1820 
1830 
1840 
1850 
I860 
1870 
1880 
1890 
1900 
1910 


REM  **  OB*( ) > beoin  line  number  1 

REM  ** 


102 


REM 
DEFFN 
PRINT 

PRINTLISING 

PRINT 


<06*. 07*. 08* > 
HEX  <030A0A) 
1910. * * 

HEX  < OAOAOA ) 


GOSUB  ' 101  < 08.06. 0.0) 

PRINT  "Svs+em  Now  Lnadino  > *: 

PRINT  HEX (OAOAOA) 

GOSUB  ' 101  < 10.06.0.0) 

PRINT  •Prooram  beina  Loaded  > 

IF  08*  <>  "1000“' 

LOAD  DC  T #0.  07*  100  . 

IF  08*  <>  "2000* 

LOAD  DC  T #0.  07*  lOO 

LOAD  DC  T #<).  07*  8000 

RETURN 

X T R A I N I N G 


06*:  " 


":07* 

7999 


Routine" 


THEN  1870  : 
THEN  1890  : 


P R O G R 


REM  EINTRY 
REM  CLEAR  CRT 
REM  PRINT  TITLE 
REM  FOR  TC  USE 
REM  POSITION  CUSOR 
REM  PRINT  DESCRIPTION 
REM  FOR  TC  USE 
REM  POSITION  CUSOR 
REM  PRINT  PROG  NAME 
REM  NOT  PROGRAM  OVRLY 

REM  NOT  PLOT  OVRLY 


REM  EXIT 

AM# 


SCHEDULE 


SCHEDULE  Svs-t  pm 


— C F"L_OT  _ OO  1 > 


&ooo 
SO  10 
6020 
€.030 
6040 
SOSO 
SOSO 
6070 
€•080 
6090 
SlOO 
S110 

si  20 

€.130 
6140 
si  so 

€-170 

€180 

6130 

€•200 

S202 

S210 

€.220 

6230 

€232 

6240 

6242 

S2SO 

S2S.O 

S270 

caso 

€-230 

S3CO 

S310 

€320 

€330 


TRAINING  SCHEDULE  (PL0T.001)  VERSION  1-0  780707 


Subroutine 
Abstract  > 

This  rout ine 
Variables  > 


REM  RETURN  TO  PLOT.PLT 


X##  PROGRAM 
REM  ** 

REM  ** 

GD3UB  ' 2S5 

REM 
REM  ** 

REM 
REM  ** 

REM  *♦ 

REM  *h» 

REM  ** 

REM  ** 

REM  ** 

REM  ^HHHHHUHHHHHHHUHHHHHUHUHUHHHHHHHUHHHHHHHHHHHUt 

DEFFN  ' 208  ! 

PRINT 


will  print  the  header  on  the  output  device. 


PRINTUSING 
PRINTUSINC 
PRINTUSING 
PRINTUSING 
PRINT 
RETURN 

X COP  / CIN  

X CRS  TITLE  

X CRS  LEN  < WKS/DAYS) 

X INPUTS  / CLASS  SIZ 
REM  *"* 

REM  *■» 

REM  Subroutine 

Abstract  > 

This  routine 
Variables  > 


HEX (OC ) 

PI  = PI  ♦ 1 

€•230.  CUM  D8 ) . Ni 4 ( D8 ) . P 1 
6232. T*(D8) 

S240. D2 ( 1 ) .D2(2) 

6242. I1(1).C2(1) 


REM  ENTRY 
REM  TOP  OF  FORM 
REM  I NCR  PAGE  INDX 
REM  PRINT  HEADER 


REM  EXIT 


«*##  / ######## 

W^WMIfMMMMMMMWfWwWWW 

WWTTTT  / #### 

wwwww  / wwww 


will  plot  schedule  acordipo  to  format  1. 


REM 
REM 
REM 
REM  ** 
REM  ** 


EOS 


S3A0 

DEFFN  ' 205 

• 

• 

REM 

ENTRY 

S3SO 

SELECT  PRINT  215(132) 

6360 

COSUP  ' 208 

• 

m 

REM 

PRNT  HEADER 

S370 

PRINTUSING 

6690. * * 

• 

m 

REM 

PRNT  COL  HEADINGS 

S3S0 

PR  I NT  US  I NG 

6700. " * 

6390 

PR  I NT USING 

w.710.*  ' 

€.400 

REM  ** 

€-410 

FOR 

T = 1 TO  50 

• 

• 

REM 

BEG  WEEK  LOOP 

6420 

REM  ** 

6430 

CONVERT 

STR(WO*( I. 1 ). 1.4) 

TO 

Cl 

• 

• 

REM 

CONVERT  YEAR 

(S> 

€440 

CONVERT 

STR(WO«(I. 1).5.2) 

TO 

C2 

• 

• 

REM 

CONVERT  MONTH 

(S) 

6450 

CONVERT 

STR(WO*(I. 11.7.2) 

TO 

C3 

• 

REM 

CONVERT  DAY 

(S) 

€•460 

CONVERT 

STR  < WO* (1.2).  1.4) 

TO 

C4 

• 

m 

REM 

CONVERT  YEAR 

(E) 

6470 

CONVERT 

STR ( W04( I . 2) . 5. 2) 

TO 

C5 

m 

REM 

CONVERT  MONTH 

(E) 

6480 

CONVERT 

STR(WO*(I.2).7.2) 

TO 

C6 

• 

• 

REM 

CONVERT  DAY 

(E) 

6490 

REM  ** 

6500 

PRINTUSING 

6720.  I.M*(C2).C3 

fM*(C5). 

C6? 

• 

• 

REM 

BEG /END  OF  WEEK 

6510 

REM  ** 

6520 

FOR 

J = 1 TO  2 

• 

• 

REM 

BEG  SESSN  LOOP 

6530 

REM  ** 

6540 

CONVERT 

STR(WO*( I+D2( 1 )-l 

.2). 

1.4) 

TO 

C7 

• 

• 

REM 

CONVERT  YEAR 

(CE 

6550 

CONVERT 

STR(WO*( I+D2< 1 > - 1 

r«?>r 

5.2) 

TO 

C8 

• 

• 

REM 

CONVERT  MONTH 

<CE 

9 


6560  CONVERT  STR< W0*< I+D2< 1 > -1 .2) . 7. 2 
6570  REM  ** 

6580  IF  S8*<J.I)  = “O* 

6590  PRINTUSING  6730.M*(C2).C3.M*<CB).C9 
6600  GOTO  6640 

6610  REM  *"* 

6620  PRINT  “ ■ ; 

6630  REM  ** 

6640  NEXT  J 

6650  PRINT 

6660  NEXT  I 

6670  SELECT  PRINT  005 (BO) 

6680  RETURN 

6690  X#WEEK  DAY  SESSION  1 

6700  X#  BEG  - END  BEG  - END 

6710  X#==- = = = *'*=  = ==*  = = ™***  = = = ^r  = = =-=r  = =r=  = = 

r tta  V MJk  uuji  ti  »»  ii  ii  ii  i»  ii 

v I L\J  A Ww  WWW  WW  Www  Ww 

6730  X ###  ft#  - ftftft  ## 


REM  PRINT  FILLER 


REM  CONT  SESSN  LOOP 
REM  PRINT  BUFFER 
REM  CONT  WEEK  LOOP 


SCHEDULE  SyB-tem (SCH.  F^L-CJT  > 

lOO  X##  PROGRAM  > TRAINING  SCFEDULE  MANAGEMENT  < SCH. PLOT)  VERSION  1.0  780530 
HO  REM  ** 

130  REM  **  ** 

1 AO  REM  **  THIS  PROGRAM  WILL  GERERATE  A HOLIADAY  TABLE  BASED  ON  ** 

150  REM  **  THE  MILITARY  TRAINING  CALENDAR.  ** 

ISO  REM  **  ** 

170  REM  **  THIS  PROGRAM  OBSERVES  THE  FOLLOWING  HOLIDAYS  - ** 

180  REM  JAN  1 - NEW  YEARS  DAY  - FLOATING  ** 

190  REM  **  - WASH/LINCON  BIRTH  - 3RD  MONDAY  OF  FEB  ** 

200  REM  **  - MEMORIAL  DAY  - LAST  MONDAY  OF  MAY  ** 

210  REM  **  JUL  4 - 4TH  OF  JULY  - FLOATING  ** 

220  REM  **  - LABOR  DAY  - 1ST  MONDAY  OF  SEP  ** 

230  REM  - COLUMBUS  DAY  - 2ND  MONDAY  OF  OCT  ** 

240  REM  **  NOV  11  - VETRANS  DAY  - FLOATING  ** 

250  REM  **  - TURKEY  DAY  - 4TH  THURSDAY  OF  NOV  ** 

250  REM  **  DEC  25  - CHRISTMAS  - FLOATING  ** 

270  REM  **  ** 

290  REM  ** 

300  REM  ** 

lOOO  COM  M*< 12) 3. HO* <27)8. WOK  120.2)9  : REM  DEFINE  COMM  VARS 

1010  DIM  D*(7)3.N<7)  : REM  DEFINE  PROG  VARS 

1020  DIM  H4*(9)2O.E*54.H8*l.H0<7)  : REM  DEFINE  PROG  VARS 

1030  REM  ** 

1040  GOSUB  ' 050  : REM  INITIALIZE  TBLS 

1050  REM 

1050  GOSUB  7 052  *.  REM  ENTR  STRT  DATE 

1070  REM  ** 

1080  GOSUB  ' 105  <Y2)  : REM  UOAD  HOL.  I DAY  TABLI 


M*< 12) 3. HO* <27)8. WO* < 120.2)9 
D*(7)3.N<7) 

H4*< 9 ) 20 . E*54 . H8* 1 . HO < 7 ) 


: REM  DEFINE  COMM  VARS 
: REM  DEFINE  PROG  VARS 
: REM  DEFINE  PROG  VARS 

.-  REM  INITIALIZE  TBLS 

*.  REM  ENTR  STRT  DATE 


1080  GOSUB  ' 105  <Y2)  : REM  LOAD  HOL.  I DAY  TABLE 

1090  GOSUB  ' 107  : REM  LIST  HOLIDAYS 

llOO  GOSUB  7 108  : REM  LOAD  BEG/END  TBL 

1110  GOSUB  7 113  : REM  LIST  BEG/END  TBL 

1120  GOSUB  7 102  ("SCHEDULE  PLOT I NG " . " PLOT . SEL " . " 1 OOO " ) : REM  LOAD  PLOT  PROG 
1130  END  : REM  END  OF  PROGRAM 

1140  REM  ** 

1150  REM  ** 

1170  REM  *•*  Abstract  > 

1180  REM  **  This  routine  will  disDlav  a fatal  error  messaoe  on 
1190  REM  **  console. 

1200  REM  **  Variables  > 

1210  REM  **  E*  > error  messaoe 

1220  REM  ** 

1230  REM  ******-«-»'»***'»**'*'tH»*****'»****«-»*'*'iHi’**-»'*****'*'»-tt 


Abstract  > 

This  routine  will  display 
console. 

Variables  > 

E*  > error  messaoe 


fatal  error  messaoe  on 


DEFFN  7 32  <E*) 

SELECT  PRINT  005(54) 

PRINT  HEX(07> 

GOSUB  7 101  (15.1.0.0) 

PRINT  " TOUCH  'RETURN7  TO  RESTART" 
SELECT  P3 

GOSUB  7 lOl  (14.1.1.0) 

PRINT 

GOSUB  7 101  (14.1.0.0) 

PRINT  E* 

SELECT  PO 

KEYIN  FI*. 1370. 1370 


(14.1.0.0) 


GOTO  1290 


REM  ENTRY 

REM  SE1.  CONSOLE  DEV 
REM  PRINT  TONE: 

REM  POSITION  CUSOR 
REM  PRINT  RESTRT  MSG 
REM  SEL  PAUSE 
REM  POSITION  CUSOR 

REM  POSITION  CUSOR 
REM  PRINT  MSG 
REM  DE-SEL  PAUSE 
REM  RESPONCE  WAIT 


1350  REM  ** 


81 


1370  PRINT  HEX <030 AO AO A)  ; REM  CLR  CONSOLE 

1380  PRINT  * EXECUTE  THE  FOLLOWING  COMMANDS  TO  RESTART:” 

1390  PRINT  ” : CLEAR  V < RETURN < EXEC )) “ 

1400  PRINT  " : CLEAR  P ( RETURN < EXEC )) “ 

1410  PRINT  " ILOAD  DCT  #0.  " : HEX (22)  : “SCHEDULE"  1HF-X  <22)  : " (RETURN! EXEC ) ) 

1420  PRINT  “ :RUN  < RETURN! EXEC) ) “ 

1430  PRINT  HEX  < QAOA) 

1440  STOP  " ENTER  COMMANDS  NOW " 

1450  RETURN  ; REM  EXIT 

1460  REM  +* 

1470  REM  ** 

1480  REM  **  Subroutine  0 5 0 

1490  REM  **  Abstract  > 

1500  REM  **  This  routine  will  initialize  tables  for  the 

1510  REM  **  initialization  of  the  schedule  Dlotino  routines 

1520  REM  **  Variables  > 

1530  REM  **  M*<  ) > table  of  month  labels  f D*<  ) > table  of  d-o-w  labels 

1540  REM  **  H*< ) > table  of  holiday  labels! 

1550  REM  ■** 

15E.0  REM 

1570  DEFFN  ' 050  : REM  ENTRY 

1580  MAT  READ  HO 

1590  MAT  READ  D* 

1600  MAT  READ  M* 

1610  MAT  READ  H4* 

1620  DATA  26.25.24.23.22.21.27 

1630  REM  ** 

1640  DATA  "SUN". "MON". "TUE". "WED". "THU". "FRI". "SAT" 

1650  REM  ** 

1660  DATA  "JAN". “FEB". "MAR". "APR". "MAY"." JUN" 

1670  DATA  "JUL".  "AUG".  "SEP".  "OCT"  >NOV"  >DEC" 

1680  REM  ** 

1690  DATA  "NEW  YEAR" . "WASH/LI COLN  BIRTH" . "MEMORIAL  DAY" 

1700  DATA  "4TH  OF  JULY". "LABOR  DAY" . "COLUMBUS  DAY" 

1710  DATA  “VETRANS  DAY". “TURKEY  DAY" . "CHRISTMAS" 

1720  REM  ** 

1730  RETURN  ; REM  EXIT 

1740  REM  ** 

1750  REM  ** 

1760  REM  **  Subroutine  0 5 2 

1770  REM  *♦  Abstract  > 

1780  REM  **  This  routine  will  allow  the  user  to  enter  the 
1790  REM  **  sti 

1800  REM  **  Vari, 

1810  REM  **  M2 

1820  REM  ** 

1830  REM  *» 

1840  REM  **■ 

1850  DEFFN 
I860  PRINT 
1870  GOSLB 
1880  GOSLB 
1890  PRINT 
1900  IbPUT 
1910  PRINT 
1920  INPUT 
1930  PRINT 
1940  IfBLTT 
1950  REM  ** 

1960  IF 


REM  ENTRY 
REM  CLR  CONSOLE 
REM  POSITION  CUSOR 
REM  POSITION  CUSOR 
REM  ENTER  STRT  MTH 


HEX  < 030AOAOA ) 

<2.35.3.6) 

<2. 1.6.6) 

"ENTER  STARTING  MONTH  <1 


ENTER  STARTING  DAY  (1-31) 


ENTER  STARTING  YEAR  (1581-????) 


THEN  2020  : REM  INVALID  INPUT 


1970  IF  M > 12  THEN  £020  : REM  INVALID  INPUT 

1980  IF  D < 1 THEN  2020  : REM  INVALID  INPUT 

1990  IF  D > 31  THEN  2020  : REM  INVALID  INPUT 

2000  IF  Y > 1980  THEN  2070  : REM  VALID  DATE 

2010  REM  ** 

2020  PRINT  HEX  ( OAOAOA ) : REM  FDR  REMOTE  USE. 

2030  GOSUB  ' 101  <1.1. 0.0)  : REM  POSITION  CU150R 

2040  PRINT  " INVALID  DATE  RE-ENTER"  : REM  ERR  MSG 

2050  GOTO  1870  : REM  RE-ENTER  DATE 

2060  REM  ** 

2070  M2. M = I NT  <M) 

2080  D2.D  = I NT  <D) 

2090  Y2.Y  = INT  < Y) 

2100  REM  ** 

2110  RETURN  : REM  EXIT 

2120  REM  ** 

2130  REM  ** 

2140  REM  -mi  Subroutine  mm  mi  <nmim  10  0 

2150  REM  *■*  Abstract  > 

2160  REM  *•*  This  routine  will  compute  the  day  of  week  for  the 

2170  REM  **  requested  date.  Will  return  invalid  vaules  for 

2180  REM  **  date  out  of  ranoe. 

2190  REM  **  Variables  > 

2200  REM  **  M > lookup  month  ! D > lookup  day 

2210  REM  **  Y > lookup  year  ! Ml  > temp  month  bufr 

2220  REM  Y1  > temo  year  bufr  ! N > day  of  week  indx 

2230  REM  ++ 

2240  REM  **ihi*ihhhw*#ihi*ihhi**««ihiihiihi**hhiihiihi*'*ihiihhi 

2250  DEFFN  ' lOO  (M.D.Y.N.E*)  : REM  ENTRY 

2260  Ml  = M : REM  STOR  LOKUP  MTH 

2270  Y1  = Y : REM  STOR  LOKUP  YEAR 

2280  IF  M > 2 THEN  2310:  REM 

2290  M = M ♦ 12  : REM  I NCR  MONTH 

2300  Y = Y - 1 : REM  DCRMNT  YEAR 

2310  N = D ♦ INT < < 1 3*M+3) /S)  + INT < 5*Y/4) 

- INT < Y/100)  + INT < Y/400)  + 1 : REM  CMPUTE  D-D-W 

2320  N = N - INT <N/7)*7  : REM 

2330  REM  ** 

2340  M * Ml  + 1 : REM  INCR  MONTH 

2350  Y = Y1  : REM  RESET  YEAR 

2360  IF  M > 2 THEN  2390  : REM 

2370  M = M + 12  : REM  INCR  MONTH 

2380  Y * V - 1 i REM  DCRMNT  YEAR 

2390  M = INT< < 13*M+3)/5)  ♦ INT<5*Y/4)  - 

INT  (Y/lOO)  + INT (Y/400)  + 2 : REM  CMPUT  NEW  MTH 

2400  M = M - INT <M/7)*7  : REM 

2410  REM  ** 

2420  E*  = * ; REM  CLR  ERR  FLAG 

2430  IF  D < 29  THEN  2530  *.  REM  VALID  DATE 

2440  IF  D > 31  THEN  2520  : REM  INVALID  DATE 

2450  IF  Ml  =2  THEN  2500  : REM  FEBUARY  EXECPTN 

2460  IF  Ml  > 7 THEN  2480  : REM  TST  31  DAYS 

2470  IF  Ml -INT <Ml/2)*2  * 1 THEN  2530  : REM  VALID  DATE:  REM 

ELSE:  GOTO  2490  : REM  ELS  TST  30  DAYS 

2480  IF  Ml -INT (Ml/2)*2  - O THEN  2530  : REM  VALID  DATE:  REM 

ELSE:  GOTO  2490  : REM  ELS  TST  30  DAYS 

2490  IF  D > 30  THEN  2520  : REM  INVALID  DATE:  REM 

ELSE:  GOTO  2530  : REM  ELS  VALID  DATE 

2500  IF  M-N  > 4 THEN  2520  *.  REM  INVALID  DATE 

2510  IF  M-N  >-  1 THEN  2530  : REM  VALID  DATE 


REM  SET  ERR  FLG 
REM  EXIT 


2520 

2530  RETURN 
2540  REM  ** 


E* 


•ERR' 


2550 
2550 
2570 
2580 
2590 
2500 
2510 
2520 
2530 
2540 
2550 
2550 
2570 
2580 
2590 
2700 
2710 
2720 
2730 
2740  IF 
2750  IF 
2750 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DEFFN  ' 
DIM 

INIT  <OA) 
INIT (09) 
INIT  < 20) 


> 


Subroutine 
Function  > 
Cusor  Address 
Varaibles  > 
row 


HHHH 


1 O 1 


and  Screen  erase 


Q1  > row  position 
02  > col  position 

Ql*( ) > cusor  vert 
G3*( ) > 1 ine  ers 
G5  > line  indx 


G3 

04 

02*  < ) 
04*  < ) 


lines  to  erase 
char(s)  erase 
cusor  hori 
micro  cmnd  bufr 
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2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2850 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2950 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 


R0W/005 

ROW/OOS 

C0L/OO5 

ERS/OOS 

ROW/OOS 
C 0l_/OO5 


FOR 
IF 

*GIO 
GOTO 
*GIO 
*GIO 
*G  10 
NEXT 
*GIO 
*GIO 
RETURN 
RFM  ** 

RFM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

OgM 

REM  ** 

REM 
REM 
DEFFN 
PRINT 

PRINTUSING 
GOSLC 
PRINT 
GOSIJB 
PRINT 


(01.02.03.04) 
Q1*(15)1.G2*(E4)1. 

01«<  ) 

02*  < ) 

03*  < ) 

01*<1)  = HEX (Ol ) 

02*  < 1 ) = HEX (OO) 

03  = O 

04  <>  O 

04  = 55  - 02 

05  = 1 TO  03 
05  < > 1 

< AOOO. 04* < ) )01*< ) <1 . 01 > 
2820 

( AOOO. 04* ( ) )Q1*<  > <2. 1> 
(AOOO.  04*  < ) )Q2*(  XI.  Q2> 
( AOOO.  04* ( ) )Q3*(  XI.  04 > 
05 

(AOOO. 04* ( ) )Q1*( X 1 . 0 1 > 
( AOOO.  04*  ( ) )Q2*(  XI.  Q2> 


03* ( 54 ) 1 . 04* (10)1 


THEN 

THEN 


2850 

2770 


THEN  2810 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


ENTRY 

DEFIN  BUFRS 
INIT  ROW  BUFR 
COL 
ERS 
TOP 
BEG 


INIT  COL  BUFR 
INIT  ERS  BUFR 
INIT  TOP  OF  PAGE 
INIT  BEG  OF  LINE 
NO  LINES  TO  ERASE 
CHARS  TO  ERASE 
ERS  REST  OF  LINE 
ERASE  03  LINES 
REM  NOT  FIRST  LINE 
REM  POSITION  CUSOR 
REM  BRANCH  TO  POS  COL 
REM  POSITION  CUSOR  LF 
REM  POSITION  CUSOR 
REM  ERASE  TEXT 
REM  CONT  ERASING 
REM  REPOSITION  CUSOR 
REM  REPOSITION  CUSOR 
REM  EXIT 


Subroutine 
Function  > 

To  load  an  over  lav  Routine. 
Variables  > 

05*  ( ) 

08*  ( ) 


wcSCPip  v .1  07*1 

beoin  line  number 


07*  ( ) D TOO  rain  fidiTie 
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(05*. 07*. 08*) 

HEX (03) 

3090. " • 

101  (08.05.0.0) 

■System  Now  Loadino  > 
101  (10.05.0.0) 

"Proaram  beino  Loaded 


':Q5*:"  Routine' 


3050 

IF 

08* 

<>  "lOOO 

30C-0 

LOAD 

DC  T #0 

3070 

LOAD 

DC  T #0 

3080 

RETURN 

3090 

X T R A 

I N 

I N G 

3100 

REM  ** 

3110 

REM  ** 

07*  lOO 
07*  8000 


■ : 07* 


7999 


THEN  3070 


: REM  ENTRY 
: REM  CLEAR  CRT 
: REM  PRINT  TITLE 
: REM  POSITION  CUSOR 
: REM  PRINT  DESCRIPTION 
: REM  POSITION  CUSOR 
: REM  PRINT  PROG  NAME 
: REM  NOT  PROGRAM  OVRLY 


SCHEDULE 


P R O G R 


: REM  EXIT 
AM# 
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TT 


3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 


REM  ** 
REM  *» 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  hhm 
DEFFN 
GOSUB 
REM  ** 
IF 

GOSUB 
GOTO 
REM  ** 
IF 


GOTO 
REM  ** 
IF 


GOTO 
REM  ** 


REM  ** 
RETURN 
REM  ** 
REM  *+ 
REM  ** 
REM 
REM  ** 
REM  ** 
REM  »* 


Abstract  > 

This  routine  will  load  the  holiday  table  for 
floating  type  holidays. 

Variables  > 


month  of  holiday 
year  of  holiday 
day  of  holiday  <sat> 
month  of  holiday  <sun> 
year  of  holiday  <sun> 
d-o-w  index 


day  of  holiday 
month  of  holiday  <sat> 
year  of  holiday  <sat> 
day  of  holiday  <sun> 
holiday  index 
err  return  buffer 


103  < Cl . C2. 03. C4. C5.C6. C7. C8. C9.C0) 
lOO  (C1.C2.C3.N.E*) 

E*  <>  "ERR"  THEN  3320 

032  < ’ HOLIDAY  LOOKUP  ERROR  <N0  DATE>" ) 
3480 


D*<N+1)  <>  "SAT* 

CONVERT  C4  TO  STR < HO* ( CO ) , 
CONVERT  C5  TO  STR<HO*<CO), 
CONVERT  C6  TO  STR<HO*<CO), 


D*(N+1)  <>  "SUN" 

CONVERT  C7  TO  STR<HO*<CO). 
CONVERT  C8  TO  STR<HO*<CO)i 
CONVERT  C9  TO  STR<HO*<CO). 


CONVERT  Cl  TO  STR<HO*<CO), 
CONVERT  C2  TO  STR < HO* < CO ). 
CONVERT  C3  TO  STR < HO* < CO), 


THEN  33B0  : 

5.2)  . <##)  : 

7.2) . < ## ) : 

1 . 4 ) . < ####  > 


THEN  3440 
5.2) . <##) 


<##)  : 

<####> 


<##)  : 
<##)  : 

<####> 


REM  ENTRY 

REM  LOOKUP  HOLIDAY 

REM  NOT  SYSTM  ERR 
REM  PRINT  ERR 
REM  BRNCH  TO  EXIT 

REM  HOL  NOT  SAT 
REM  SET  MONTH 
REM  SETT  DAY 
: REM  SET  YEAR 
REM  BRNCH  TO  EXIT 

REM  HOL.  NOT  S U 
REM  SET  MONTH 
REM  SET  DAY 
: REM  SET  YEAR 
REM  BRNCH  TO  EXIT 

REM  SET  MONTH 
REM  SET  DAY 
1 REM  SET  YEAR 

REM  EXIT 


Subroutine  ******** 
Abstract  > 

This  routine  will 
type  holidays. 
Variables  > 


load  holiday  table  for  nth 


3560 

REM 

*•* 

Cl 

/ 

month  of  holiday 

! C2 

3570 

REM 

-a-* 

C3 

> 

day  of  holiday  <d-o-w> 

! C* 

3580 

REM 

■a-a- 

CO 

> 

holiday  index 

! E* 

3590 

REM 

*-* 

N 

> 

d-o-w  index 

! C5 

nth  day  for  holiday 
year  of  holiday 
err  rtrun  buffer- 
day  of  holiday  <index> 


REM  +* 

REM  »**» 

DEFFN  ' 104  <C1.C2.C3.C4. CO) 

C5  * O 
MAT  N = ZER 

REM  ** 

C5  = C5  ♦ 1 : 

GOSUB  ' lOO  <C1 .C5.C4.N.E*)  : 


GOSUB 
REM  ** 
IF 

GOSUB 

GOTO 


E*  <>  “ERR"  THEN  3730 

<"  HOL.  I DAY  LOOKUP  ERROR  <EOM>"> 

3790 


REM  ENTRY 

REM  1NIT  DAY  INDX 

REM  ZERO  DOW  COUNTS 

REM  I NCR  DAY  INDX 
REM  LOOKUP  DATE 

REM  END  OF  MONTH 
REM  DISPLAY  ERR 
REM  BRNCH  TO  EXIT 


. 


3720 

3730 

3740 

3750 

3750 

3770 

3780 

3790 

3800 

3810 

3820 


REM  *-» 

IF 

IF 


RETURN 
REM  ** 
REM  ** 
REM  ** 


N(N+1>  = N(N+1  > + 1 
N+l  <>  C3 
N(N+ 1 ) <>  C2 
CONVERT  Cl  TO  STR(HO*<CO) . 5.2) . <##) 
CONVERT  C5  TO  STR(HO*(CO)  i.7.2) . <##) 
CONVERT  C4  TO  STR  < FtOt  < CO ) . 1.4) 


THEN  3000 
THEN  3000 


<####) 


REM  INCH  DOW  INDX 
REM  NOT  LOKUP  DAY 
REM  NOT  NTH  DAY 
REM  SET  MONTH 
REM  SET  DAY 
: REM  STOR  YEAR 
REM  EXIT 


Subroutine  hhhhhhuhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhi « ft  \ o 5 


3830 

REM 

** 

Abstract  > 

3840 

REM 

This 

routine  will  load  holiday 

tabl  e 

for  last  day 

3850 

REM 

*-* 

type 

of  holidays. 

3850 

REM 

•JR* 

Variables  > 

3870 

REM 

*-* 

Cl  Is- 

month  of  holiday 

C2 

> 

day  of  holiday 

3880 

REM 

CS  > 

year  of  holiday 

CO 

> 

hoi i day  index 

3890 

REM 

C4  > 

day  of  holiday  <indx> 

N 

> 

d-o-w  index 

3900 

REM 

E*  > 

error  return  index 

H<  ) 

> 

holiday  table 

3910 

REM 

3920 
3930 
3940 

3950  REM  ** 
3950 
3970 
3980 
3990 
4000 
40.10 
4020 
4030 
4040 
4050 
4000 
4070 
4080 

4090  REM 
4100  REM 


DEFFN 


GOSUB 
REM  ** 
IF 
IF 


RETURN 
REM  ** 
REM  ** 
REM  ** 
REM  ** 


105  (C1.C2.C3.C0) 
C4  = 32 


lOO 


C4  = C4  - 1 
(C1.C4.C3.N.E*) 


THEN  3900 
THEN  3900 


E*  = “ERR" 

N+l  <>  C 2 

CONVERT  Cl  TO  STR < HO*<CO> . 5. 2) . < ##>  : 
CONVERT  C4  TO  STR (HOMCO) . 7. 2) . <##)  1 
CONVERT  C3  TO  STR <HO*(CO) . 1 . 4) . < ####> 


REM  ENTRY 

REM  INIT  DAY  INDX 

REM  DCRMNT  DAY  INDX 
REM  LOOKUP  DATE 

REM  NO  SUCH  DAY 
REM  NOT  LOOKUP  DAY 
REM  SET  MONTH 
REM  STOR  DAY 
: REM  STOR  YEAR 
REM  EXIT 


Subroutine 
Abstract  > 

This  routine  will  create  the  holiday  IooKud  table. 


1 O O 


**  Variables  > 


4110 

REM  ** 

4120 

REM  ** 

4130 

REM  *+m 

HH 

HHHM 

4140 

DEFFN 

' 

105 

4150 

REM  ** 

4150 

FOR 

4170 

4180 

4190 

REM  ** 

4200 

GOSUB 

/ 

103 

421C 

GOSLB 

/ 

104 

4220 

\>OSUB 

» 

105 

4230 

GOSUB 

» 

103 

4240 

GOSUB 

/ 

104 

4250 

GOSUB 

/ 

104 

4250 

GOSUB 

/ 

103 

4270 

GOSUB 

# 

104 

4280 

GOSUB 

/ 

103 

4290 

REM  ** 

4300 

NEXT 

B2 

BO 

B3 


O TO  2 
B1  + B2 
INT(B2*9) 


B2 


4310  RETURN 


REM  ENTRY 

REM  BEG  3 YEAR  LOOP 
REM  CMPUTE  CFY 
REM  CMPUTE  HOL  INDEX 

REM  NEW  YEAR  CFY 
REM  WASH  BIRTH  CFY 
REM  MEM  DAY  CFY 
REM  4TH  JULY  CFY 
REM  LABOR  DAY  CFY 
REM  CLMBUS  DAY  CFY 
REM  VETRNS  DAY  CFY 
REM  TURKEY  DAY  CFY 
REM  CHRISTMAS  CFY 

REM  CONT  3 YEAR  LOOP 
REM  EXIT 


86 


4 


i 


4350 

REM 

** 

4330 

REM 

4340 

REM 

4350 

REM 

4350 

REM 

4370 

REM 

4380 

REM 

4390 

REM 

4400 

REM 

4410 

REM 

4450 

DEFFN 

4430 

PRINT 

4440 

GOSUB 

4450 

PRINT 

4450 

INPUT 

4470 

IF 

Subroutine  10  7 

Abstract  > 

This  routine  will  list  the  table  of  holidays  on 
the  selected  output  device. 

Variables  > 

H»!)  > table  Df  holiday  lables  ! H01><  ) > table  of  holidays 


107 


101 


REM  ENTRY 

REM  CLR  CRT  SCREEN 
REM  POSITION  CLISOR 


HEX  < 030AOAOA ) 

<8. 1.0.0) 

"DO  YOU  WANT  TO  DISPLAY  THE  LIST  OF  HOLIDAYS  <Y  or  N) 
E* 

E*  <>  “Y" 


THEN  4570  : REM  DO  NOT  DISPLAY 


4480  REM  ** 

4490  SELECT 
PRINT 
FOR 
PRINT 
PRINTUSING 
PRINTUSING 
FOR 


4500 

4510 

4550 

4530 

4540 

4550 

4550 

4570 

4580 

4590 

4500 

4510 

4550 

4530 

4540 

4550 

4550 

4570 


NEXT 

PRINTUSING 

PRINT 

NEXT 

PRINT 

SELECT 

RETURN 


PRINT  515<80) 

HEX  <OC ) 

J = O TO  5 
HEX  < OAOA) 

4580.  Y5+J 
4590 

I = 1 TO  9 
K = I + INT<J*9> 

CONVERT  STR<HOS<K) 

CONVERT  STR<HO*<K) 

CONVERT  STR  < HO*  < K > . 

PRINTUSING  4700.M*<C1).C5.C3.H4*<I> 
I 

4590 


REM  SEL  LPT  DEVICE 
REM  TOP  OF  FORM 
REM  BEG  3 YEAR  LOOP 
REM  POSITION  CUSOR 


REM  CMPUTE  HOL  INDX 


,5.5)  TO  Cl 
,7.5)  TO  C5 
,1.4)  TO  C3 


REM  CQNT  HOI.  1 DAY  LOOP 


J 

HEX  <0C ) 

PRINT  005 <80) 


REM  CCINT  3 YEAR  LOOP 
REM  TOP  OF  FORM 
REM  SEL  CRT  DEVICE 
REM  EXIT 


4580 

X 

4590 

X 

4700 

X### 

4710 

REM  ** 

4750 

REM  ++ 

4730 

REM  <H» 

4740 

RFM  ** 

4750 

REM  ** 

4750 

REM  ** 

4770 

REM  *+ 

4780 

REM  ** 

i 

4790 

REM  **■ 

i 

4800 

DEFFN 

| 

4810 

• 

4850 

4830 

i 

4B40 

4850 

REM  ** 

I * 

4850 

REM  ** 

## 


Subroutine 
abstract  > 

This  routine  will  load  the  beoining/ending  of  week  table. 
Variables  > 

W*< ) > bea/end  table 


10  8 


108 


Cl  = D5  - 
C5  = M5 
C3  = Y5 
CO  * 1 


REM  ENTRY 
REM  INIT  DAY  INDX 
REM  INIT  MTH  INDX 
REM  INIT  YEAR  INDX 
REM  INIT  WEEK  INDX 


FIND  BEG  OF  WEEK 


4870  REM  ** 
4880 

4B90  GOSUB 
4900  REM  ** 
4910  IF 


Cl  » Cl  ♦ 1 
100  (C5.C1.C3.N.E*) 


REM  I NCR  DAY  INDX 
REM  LOOKUP  DATE 


E*  <>  "ERR’ 


THEN  4990  : REM  VALID  DATE 
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4920 

C8  = C8  + 1 

REM 

INCR  MTH  INDX 

4930 

IF 

C8  < 13 

THEN 

4950 

REM 

VALID  MONTH 

4940 

C3  * C3  ♦ 1 

• 

REM 

INCR  YEAR  INDX 

4950 

C8  = 1 

• 

• 

REM 

RESET  MONTH  INDX 

4950 

Cl  * O 

• 

• 

REM 

RESET  DAY  INDX 

4970 

GOTO 

4880 

• 

REM 

BRNCH  TO  NXT  DAY 

4980 

REM  ** 

4990 

IF 

N+l  <>  8 

THEN 

4880 

REM 

NOT  A MONDAY 

5000 

COSUB  ' 

118 

<C8.C1.C3.HB*> 

REM 

X-MAS  BREAK 

5010 

IF 

HB*  <>  "C" 

THEN 

5050 

REM 

CONT  MONTDAY  CHK 

5080 

STR < WO* < CO- 1.2) .9.1)  = H8* 

REM 

STOR  HOL  FLAG 

5030 

GOTO 

4880 

REM 

CMP  LTTE  NXT  MON 

5040 

REM  ** 

5050 

GOSUB  ' 
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(C2.C1.C3.H8*) 

REM 

TST  FOR  HOLIDAY 

5050 

IF 

HB*  = " * 

THEN 

5090 

REM 

NOT  A HOLIDAY 

5070 

GOSUB  ' 

110 

(C8.C1.C3) 

REM 

INCR  FOR  MON  HOL 

5080 

REM  ** 

5090 

CONVERT 

C8  TO  STR < WO* (CO. 1 ) . 5.8) . 

<##) 

REM 

STOR  MONTH 

5100 

CONVERT 

Cl  TO  STR  < WO* < COl  1)17.3)!. 

(##) 

• 

• 

REM 

STOR  DAY 

5110 

CONVERT 

C3  TO  STR  < WO*  < CO . 1 > . 1 . 4 ) . 

<####) 

• 

REM 

STOR  YEAR 

5180 

STR  < WO*  < CO. 1 ) . 9. 1 ) = H8* 

REM 

STOR  HOI.  FLAG 

5130 

REM  ** 

5140 

REM  *-» 

FIND  END  OF  WEEK 

5150 

REM  *•* 

5150 

Cl  = Cl  + 1 

; 

REM 

INCR  DAY  INDX 

5170 

GOSUB  ' 

lOO 

(C2.C1.C3.N.E:*) 

: 

REM 

LOOKUP  DATE 

5180 

REM  ** 

5190 

IF 

E*  <>  "ERR" 

THEN 

5870 

REM 

VALID  DATE 

5800 

C8  = C2  + 1 

REM 

INCR  MTH  INDX 

5810 

IF 

CS  < 13 

THEN 

5840 

REM 

VAI.  ID  MONTH 

5880 

C3  = C3  + 1 

REM 

INCR  YEAR  INDX 

5830 

C3  = 1 

REM 

RESET  MONTH  INDX 

5840 

Cl  = 0 

REM 

RESET  DAY  INDX 

5850 

GOTO 

5150 

REM 

BRNCH  TO  NXT  DAY 

5850 

REM  ** 

5870 

IF 

N+l  <>  5 

THEN 

5150 

REM 

NOT  A FRIDAY 

5880 

GOSLB  ' 

109 

<C2.C1 .C3.H8*) 

REM 

TST  FOR  HOI- 1 DAY 

5890 

IF 

H8*  = " " 

THEN 

5380 

REM 

NOT  A HOLIDAY 

5300 

GOSL©  ' 

111 

(C8.C1.C3) 

REM 

DCRMNT  FOR  FRI  HOL 

5310 

REM  *-* 

5380 

CONVERT 

C8  TO  STR  < WO* (CO. 8) . 5. 8) . 

<##> 

REM 

STOR  MONTH 

5330 

CONVERT 

Cl  TO  STR  < WO* < CO j 8 > , 7. 8 ) ]. 

REM 

STOR  DAY 

5340 

CONVERT 

C3  TO  STR  < WO* ( COl 2 ) ll 1 4 ) I 

/ 11  “ “ “ \ 

REM 

STOR  YEAR 

5350 

STR < WO* < CO. 2). 9. 1 ) = H8* 

REM 

STOR  HOI-  FLAG 

5350 

REM  ** 

5370 

CO  = CO  + 1 

: 

REM 

INCR  WEEK  INDX 

5380 

IF 

CO  <■  180 

THEN 

4880 

• 

REM 

CONT  COMPUTATIONS 

5390 

RFM  ** 

5400 

RETURN 

: 

REM 

EXIT 

5410 

REM  ** 

5480 

REM 

5430 

REM  **  ! 

Subroutine  10  9 

5440 

REM  **  i 

Abstract  > 

5450 

REM  ** 

This  routine  will  search  the 

holiday  table  to  test 

5450 

REM  ** 

the  current  date  for  a holiday. 

5470 

REM  **  • 

Variables  > 

5480 

REM  ** 

5490 

REM  ** 

5500 

REM  »<hhhhhhh> mtmii>HinHnnnnHHHtntnme > 

5510 

DEFFN  ' 
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(C8.C1.C3.HB*) 

: 

REM 

ENTRY 

4 

A 


5520 

DIM 

S* ( 1 ) B. S4* (1)2 

: 

REM 

5530 

5540 

REM  ** 

HB$  = 

M M 

• 

REM 

5550 

CONVERT 

C2  TO 

STR  ( S*  ( 1 ) . 5. 2 ) . 

(##) 

m 

a 

REM 

5560 

CONVERT 

Cl  TO 

STR  ( S*  ( 1 ).7.2). 

(##) 

REM 

5570 

CONVERT 

C3  TO 

STR(S*(1).1.4). 

\ WWW# > 

REM 

5580 

REM  ** 

5590 

MAT  SEARCH 

HOt < ). 

= S*(l)  TO  S4*()  STEP  8 

REM 

5600 

IF 

S4*(l) 

= HEX(OOOO) 

THEN  5620 

REM 

5610 

H8*  = 

"H" 

REM 

5620 

RETURN 

REM 

CLR  HOL  FLAG 


CNSTRUCT 


ID  (MTH) 
ID  (DAY) 
ID  (YEAR) 


SRCH  HOLIDAY  TBL 
NOT  A HOI.  I DAY 
SET  HOL  FLAG 
EXIT 


5630  REM  ** 

5640  REM  ** 

5650  REM  ** 

5660  REM  ** 

5670  REM  ** 

5680  REH  ** 

5690  REM  ** 

5700  REM  *+ 

5710  REM  ** 

5720  REM  ** 

5730  REM 

DF.FFN  ' llO  (C2.C1.C3) 

Cl  = Cl  + 1 

GOSUB  ' lOO  (C2.CI.C3.N.E*) 

IF  E4>  <>  "ERR"  THEN  5850 

C2  = C2  +■  1 


5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 


Subroutine 
Abstract  > 

This  routine 
for  a monday 
Variables  > 

C2  > current 
C3  > current 


1 1 O 


will  increment 
hoi i day. 

month 
year 


the  date  to  compensate 


Cl 


current  day 


IF 


C2  < 
C3  = 
C2  = 
Cl  = 
5760 


13 

C3 

1 

1 


THEN  6820 


+ 1 


ADVANCE  ERROR. 


THEN 

, “ ) 


>880  : 


Subroutine 
Abstract  > 

This  routine 
for  a friday 
Variables  > 

C2  > current 
C3  > current 


GOTO 
REM  ** 

IF  N+l  = 3 

GOSUB  ' 032  ("  MONDAY 
REM  ** 

RETURN 
REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  «"* 

REM  ** 

DEFFN  ' ill  (C2.C1.C3) 

Cl  = Cl  - 1 
lOO  (C2.C1.C3.N.F4.) 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


e:ntry 

I NCR  DAY  INDX 
LOOKUP  DATE 
VALID  DATE 
I NCR  MTH  INDX 
VALID  MONTH 
I NCR  YEAR  INDX 
RESET  MTH  INDX 
RESET  DAY  INDX 
REM  BRNCH  TO  LOOKUP 

REM  NEW  DAY  IS  TUE 
REM  DISPLAY  ERR  MSG 

REM  EXIT 


will  decrement 
hoi iday . 

month 

year 


the  date  to  compensate 


Cl 


current  day 


GOSUB 

IF 

IF 


GOSUB 

IF 


E* 

C2 

C2 

C3 

C2 

Cl 


<>  "ERR” 
= C2  - 1 
> O 

= C3  - 1 
» 12 
= 31 


lOO  (C2.C1.C3.N.E*) 
E*  <>  "ERR" 

Cl  * Cl  - 1 


THEN  6140 


THEN  6080 


THEN  614^ 


REM  ENTRY 

REM  OCR ME NT  DAY  INDX 
REM  LOOKUP  DATE 
REM  VALID  DATE 
REM  DCRMNT  MTH  INDX 
REM  VAI.ID  MONTH  INDX 
REM  DCRMNT  YEAR  INDX 
REM  RESET  MTH  INDX 
REM  RESET  DAY  INDX 
REM  LOOKUP  DATE 
REM  VAI.ID  DATE 
REM  DCRMNT  DAY  INDX 
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AD-A071  576  RUTGERS  - THE  STATE  UNlV  PISCATAWAY  NJ  COLL  OF  ENGIN— ETC  F/G  9/2 


AUTOMATED  COURSE  SCHEDULING  SYSTEM  FOR  NAVAL  TRAINING* CU) 


0 


€.150 
€.130 
€.140 
€.150 
6160 
€.170 
€.180 

€.500 
€510 
€.550 
€530 
€540 
€550 
6560 
€570 
€580 
6590 
€-300 
6310 
6350 
6330 
6340 
6350 
6.360 
6370 
6380  REM 
6390  REM 
6400 
6410 
6450 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 


GOTO 
REM  ** 

IF 

COSUB  ' 
REM  ** 

RETURN 
REM  ** 
REM  **■ 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 

DEFFN  ' 

IF 

GOSUB  ' 

IF 

RETURN 

REM  *-* 
REM  ** 
REM 


035 


6090 

N+l  = 5 
( "FRIDAY 


HOLIDAY  DECRMNT 


THEN  6170 
ERROR. . . " ) 


REM  BRNCH  DATE  LOOKUP 

REM  NEW  DAY  IS  THUR 
REM  PRINT  ERR  MSG 

REM  EXIT 


Subroutine 
Abstract  > 

This  routine 
of  Christmas. 
Variables  > 


1 1 5 


will  test  if  current  week  is  the  week 


115  (C5.C1.C3.H8*) 
H8t>  = " " 

CS  <>  15 

100  < 15.55.C3.N.E*) 
Cl  <>  HO(N+.t) 
HBt.  = "C“ 


: REM  ENTRY 
: REM  CLR  FLAG 

THEN  6340  : REM  NOT  DECEMBER 

: REM  CMPUTE  DAY  OF  HOL 
THEN  6340  : REM  NOT  X-MAS  WEEK 
: REM  SET  FLAG 
: REM  EXIT 


REM 
REM 
REM 
REM 
REM 
DEFFN 
PRINT 
GOSUB 
PRINT 
PRINT 
PRINT 


Subroutine 
Abstract  > 

This  routine  will  alow  the  user  to 
containing  the  beginino  and  ending 
Variables  > 

WOK  > > beo/end  table 


1 1 3 


list  the  table 
of  schedule  weeks. 


113 

HEX ( 030A0A0A ) 

101  (8. 1.0.0) 

"DO  YOU  WANT  TO  DISPLAY  THE 
"DAYS  OF  THE  WEEK  WHAT  WERE 
‘SCHEDULE  < Y or  N)": 


: REM  ENTRY 
: REM  CLR  CONSOLE 
: REM  POSITION  CUSOR 
BEGINING  AND  ENDING" 
GENERATED  FOR  THE  " 


6510 

INPUT 

E* 

■ 

• 

REM 

INPUT  RESPONCE 

6550 

IF 

E*  <>  "Y" 

THEN  6730  : 

REM 

DO  NOT  DISPLAY 

6530 

SELECT 

PRINT  5 1 5 < 80 ) 

■ 

a 

REM 

SEL  LPT  DEVICE 

6540 

PRINT 

HEX  <00 ) 

a 

a 

REM 

TOP  OF  FORM 

6550 

PRINTUSING 

6740 

6560 

PRINTUSING 

6750 

6570 

REM  ** 

6580 

FOR 

I * 1 TO  150 

• 

a 

REM 

BEG INC  WEEK  LOOP 

6590 

CONVERT 

STR(WOKI.l). 1.4) 

TO  Cl 

m 

a 

REM 

FETCH  STRT  YEAR 

6600 

CONVERT 

STR  (WOK I. 1 ) .5.5) 

TO  C5 

a 

a 

REM 

FETCH  STRT  NTH 

6610 

CONVERT 

STR  (WOK  I.D.7.5) 

TO  C3 

■ 

a 

REM 

FETCH  STRT  DAY 

6650 

CONVERT 

STR  < WOi < 1 . 5 ) . 1,4) 

TO  C4 

a 

a 

REM 

FETCH  END  YEAR 

6630 

CONVERT 

STR  < W04  ( 1 . 5 ) . 5 . 5 ) 

TO  C5 

a 

a 

REM 

FETCH  END  MTH 

€640 

CONVERT 

STR  (WOK  1. 5). 7. 5) 

TO  C6 

a 

• 

REM 

FETCH  END  DAY 

€650 

PRINTUSING 

6760.  I.C3.MKCS) 

• Cl.  STR  (WOK  1.11.9. 1) 

. C6.MKCS) 

. C4. STR (WO* < 1. 5). 9. 1) 

€660 

IF 

I <>  60 

THEN  6700  : 

REM 

BRNCH  TO  NXT  WEEK 

€670 

PRINT 

HEX  < OC ) 

• 

a 

REM 

TOP  OF  FORM 

€680 

PRINTUSING 

6740 

€690 

PRINTUSING 

6750 

6700 

NEXT 

I 

a 

a 

REM 

CONT  WEEK  LOOP 

90 


’ V-.  *’  s 

, 


j 


€.710  SELECT  PRINT  005(80)  : REM  S EL  CRT  DEVICE 

€.720  REM  ** 

6730  RETLWN  : REM  EXIT 

6740  X Week  ! Start  of  Week  ! End  of  Week  ! 

6750  X • ! ! 

67€0  x ###  • m - ##*  - mm  « ! m - ###  - mm  # ! 


SCHEDULE  System 


C SCH . FEAS > 


i 


100 

110 

120 

130 

140 

ISO 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

1000 

1005 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1.100 

1110 

1120 

1130 

1140 

1150 

1180 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 


X*# 

REM 


PROGRAM  > SCHEDULE  MANAGEMENT  (SCH.FEAS)  VERSION  1.0  780530 


REM 


THIS  PROGRAM  WILL  ALLOW  TEE  USER  TO  INTERACT 
WITH  THE  PROGRAM  INABLING  THE  USER  TO  OPTMISE 
TEE  CALCULATIONS  FOR  INSTRUCTOR  COMP  AND  OTHER 
VALUE  REQUIRED  FOR  CONSTRUCTION  OF  SCHEDULE. 


*****  IMPORTANT  NOTE  ***** 


ONCE  THE  DESIRED  VALUES  HAVE  BEEN  DETERMINED 
THE  USER  MUST  CHANGE  THE  VALUES  IN  THE  DATA 
BASE  BY  EXECUTING  THE  DATA  MAINTENANCE  OPTION 
OF  THE  SCHEDULE  PROGRAMMING  SYSTEM. 


THEREFORE.  MAKE  A NOTE  OF  VALUES  CHANCED. 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM  ** 

REM  ** 

DIM  D0*< 1 )4.D2<2).D4*<1 )1B.D2*<1 )5.D3*(4)64.P1*4: 

F5  = 6 : 

COSUB  ' 201  : 

REM  ** 

GOSUB  ' 203 

IF  Q*  = "E*  THEN  llOO 

GOSLB  ' 110 

GOSUB  ' 111 

GOSUB  ' 205 

GOTO  1030 

REM  ** 

GOSLB  ' 102  < "MAIN  CONTROL" . "SCH. SCH" . " lOOO" ) 
RETURN 
REM  ** 


REM  DEFINE  WRK  VARS 
REM  INIT  PRINT  FLAG 
REM  INIT  DISK  FILES 


: REM  LOAD  CRS  RECORD 


REM 


IF  END  OF  LIST 
REM  CONV  NUMERIC  DATA 
REM  CMPUT  NESRY  INFO 
REM  PRINT  FEAS  STUDY 
REM  DO  NXT  CRS 


REM  LOAD  MAIN  PROG 
REM  END  OF  ROUTINE 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
DEFFN 


Subroutine  *********************************************  032 
Abstract  > 

This  routine  will  display  a fatal  error  message  on 
console. 

Variables  > 

E*  > error  messaoe 


32  <E*> 

SELECT  PRINT  005164) 
PRINT  HEX (07) 

GOSUB  ' lOl  <16.1.0.0) 
PRINT  " TOUCH  'RETURN' 
SELECT  P3 

GOSUB  ' 101  (14.1.1.0) 
PRINT 

GOSUB  ' lOl  <14.1.0.0) 
PRINT  E* 

SELECT  PO 

KEYIN  FI*. 1350. 1350 
REM  ** 

PRINT  HEX < 030A0AOA ) 


TO  RESTART"! 


REM  ENTRY 

REM  SEL  CONSOLE  DEV 
REM  PRINT  TONE 
REM  POSITION  CUSOR 
REM  PRINT  RESTRT  MSG 
REM  SEL  PAUSE 
REM  POSITION  CUSOR 


: GOTO  1270  : 


REM  POSITION  CUSOR 
REM  PRINT  MSG 
REM  DE-SEL  PAUSE 
REM  RESPONCE  WAIT 


REM  CLR  CONSOLE 


92 


MR. 


i 


1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 


PRINT  “ EXECUTE  THE  FOLLOWING  COMMANDS  TO  RESTART: “ 

PRINT  " : CLEAR  V < RETURN! EXEC )) “ 

PRINT  " : CLEAR  P < RETURN! EXEC) )“ 

PRINT  * :LOAD  DCT  #0.  * :I-£X<22)  J "SCHEDULE*  : HEX  <22 ) : " <1 

PRINT  “ :RUN  < RETURN! EXEC))* 

PRINT  HEX(OAOA) 

STOP  “ENTER  COMMANDS  NOW " 

RETURN  : REM  EXIT 

REM  ** 


< RETURN! EXEC) )“ 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *■* 
REM  *♦**< 
DEFFN  ' : 
DIM 

INIT  <OA) 
INIT  <09) 
INIT  <20) 


Function  > 

Cusor  Address  and  Screen  erase 


Varaibles 


01 

02 

Ql*<  ) 
03*!  ) 
05 


row  position 
col  position 
cusor  vert 
line  ers 
line  indx 


03 

04 

02*  < ) 
Q4*<  ) 


lines  to  erase 
char!s)  erase 
cusor  hori 
micro  cmnd  bufr 


<01.02.03.04) 

G1*<16)1. Q2*<64  > 1 . G3*(64) 1 . 04* < 10)1 
Ql*<  ) 


02*  ( ) 
03*!  ) 
Ql*< 1 ) 
02* < 1 ) 
03  = O 


» HEX (01 ) 
= HEX (OD) 


<>  O 

=65-02 
= 1 TO  03 


THEN  1750 
THEN  1670 


05  <> 


THEN  1710 


*G ID  ROW/ 005  < AOOO.  04*  < ) )01*<  XI. 


GOTO  1720 

*GIO  R0W/005  < AOOO. 04* < ) )01*< )<2. 1> 
*G  I O C 01.  / 005  < AOOO . 04*  < ) ) 02*  < ) < 1 . 02  > 
*G 1 0 ERS/OOS  < AOOO . 04*  < ) ) 03*  < ) < 1 . 04 > 
NEXT  05 

♦GIO  R0W/005  < AOOO. 04* < ))01*< )<1.01> 
*G IO  C0L/005  < AOOO.  04*  < ) ) 02*  < ) < 1 . 025- 


RETURN 
REM  ** 

REM  *-» 

REM  *+  S 
REM  **  F 
REM  *+ 

REM  **  V 
REM  ** 

REM  ** 

REM  ** 

REM  »»»»»» 
DEFFN  ' 10 
PRINT 

PRINTUSING 


REM  ENTRY 

REM  DEFIN  BUFRS 

REM  INIT  ROW  BUFR 


REM  INIT  COL  BUFR 
REM  INIT  ERS  BUFR 


REM  INIT  TOP  OF  PAGE 
REM  INIT  BEG  OF  LINE 
REM  NO  LINES  TO  ERASE 
REM  CHARS  TO  ERASE 
REM  ERS  REST  OF  LINE 
REM  ERASE  03  LINES 
REM  NOT  FIRST  LINE 
REM  POSITION  CUSOR 
REM  BRANCH  TO  POS  COL 
REM  POSITION  CUSOR  LF 
REM  POSITION  CUSOR 
REM  ERASE  TEXT 
REM  CONT  ERASING 
REM  REPOSITION  CUSOR 
REM  REPOSITION  CUSOR 
REM  EXIT 


Subroutine  > *•*** 
Function  > 

To  load  an  over 
Variables  > 

06* <)  > descrip 
Q8*< ) > beain  1 


lay  Routine. 


description 
beain  line  number 


Q7*< ) Drooram  name 


GOBUB 

PRINT 

GOSUB 

PRINT 

IF 


102  < 06* . 07* . 08* ) 

HEX (03) 

NG  1990."  " 

101  (08.06.0.0) 
“System  Now  Loadino  > 
101  <10.06.0.0) 
“Prooram  being  Loaded 
08*  <>  “1000“" 


":06.*:  “ Routine" 


: REM  ENTRY 
: REM  CLEAR  CRT 
: REM  PRINT  TITLE 
: REM  POSITION  CUSOR 
: REM  PRINT  DESCRIPTION 
: REM  POSITION  CUSOR 
: REM  PRINT  PROG  NAME 
: REM  NOT  PROG  OVRLY 


f 


1960 

1970 

19B0 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2200 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 


LOAD  DC  T #0.  Q7*  lOO  . 7999 

LOAD  DC  T #0.  07*  8000 

RETURN  : REM  EXIT 

^TRAINING  SCHEDULE  PROGRAM# 

REM  ** 

REM  ** 

REM  Subroutine  it **«**#*#+*  104 

REM  **  Abstract  > 

REM  **  This  routine  will  round  a number  to  the  specified 
REM  **  number  of  decimal  digits. 

REM  **  Variables  > 

REM  ** 

REM  ** 

REM 

DEEFN  ' 104  (D1.D2.D3.A9)  ! REM  ENTRY 


D1  <=  1.00 


THEN  2220 


= D1  - I NT <D1 ) 

= 1NT <D4  * < lOt (D3+1 ) ) ) 

= <(D4/10)  - 1NT (D4/10) ) * 1( 

= INT(Dl*(10t(D3)))*10t(-D3> 


: REM  INIT  RETURN  VALUE 

: rem  mimium  value: 

: REM  FTCH  DECML  VALUE 
: REM  MOVE  DECML  POINT 
: REM  FTCH  CHK  DIGIT 

: REM  FTCH  BASE  VALUE 


Abstract  > 

This  routine  will  convert  input  data  record  into 
numeric  information  for  calculations. 

Variables  > 


REM 

IF  D4  < D2 

A9  = A9  + ( ( 1 . O ) * ( 1 Of ( -D3 ) ) ) 

RETURN 
REM  ** 

REM  ** 

REM  **  Subroutine  *<hhhhhhhhnh 
REM  **  Abstract  > 

REM  **  This  routine  will  corn 
REM  **  numeric  information  fi 
REM  **  Variables  > 

REM  *♦ 

REM  ** 

DEFFN  # 110 

CONVERT  I1*(Q)  TO  11(1) 

CONVERT  C2*(Q>  TO  C2<1) 

CONVERT  W*(Q>  TO  W(l) 

CONVERT  M1*(Q)  TO  Ml ( 1 ) 

CONVERT  I9*(Q)  TO  19(1) 

CONVERT  E1*(Q)  TO  El(l) 

CONVERT  S1*(0)  TO  Sl(l) 

CONVERT  S2*(Q)  TO  S2(l> 

REM  ** 

FOR  K = 1 TO  7 

COWERT  H*(Q.K)  TO  H(l.K) 

CONVERT  R*(Q.K)  TO  R(l.K) 

NEXT  K 
REM  ** 

RETURN 
REM  *♦ 


THEN  2220  : REM  ROUND  DOWN 


REM  ROUND  UP 
REM  EXIT 


: REM  ENTRY 
: REM  PLANNED  IhPUT 
: REM  CLAS  SIZ 
: REM  CRS  LEN  (WKS) 

: REM  MAN  POWER 
: REM  INSTRUCTORS 
: REM  TRAINERS 
: REM  SUPPORT 
: REM  MPA 

J REM  BEG  C NT ACT  LOOP 
: REM  C NT  ACT  f«S 
: REM  C NT ACT  RATIOS 
1 REM  CONT  C NT ACT  LOOP 

J REM  EXIT 


Subroutine  HimiiHMmiiHmtoinnininiHmHHin 
Abstract  > 

This  routine  will  perform  the  following  caluclation*  - 

- Instructor/Comp  ; 

- Course  Length  (day*)  : 


SfrjbScV  '•***'.  fj 


AOB  (Average  On  Board)  : 
Sum  Type  Hours  (Inst/Comp) 
Convening  Frequency 
Concurrent  Schedulina 


2560  REM  ** 

3570  REM  ** 

3580  REM  ** 

3590  REM  ** 

3500  REM  ** 

3510  REM  ** 

3630  REM  *■* 

3630  REM 

2640  DEFFN  ' 111 

3650  W2< 1 ) * W< 1 )*7-3 

2660  0<1>  = IK  1>*W2<  11/365 

3670  S<1)  =0 

2680  REM  ** 

3690  FOR  K = 1 TO  7 

2700  IF  H(l.K)  * O 

3710  IF  R< l.K)  * O 

2730  A2  = C3(1)/R<1.K) 

3730  GOSUB  ' 104  (A2.S. 1.A9) 

3740  GOSUB  ' 104  (A9.3.0.A9) 

2750  S<1)  = S(l)  + <A9*H< l.K) ) 

2760  NEXT 
2770  REM  ** 

2780 

2790  GOSUB 
3800 
2810 
3830 
2830 

2840  GOSUB 
2850 

3860  REM  ** 

3870 
3880 
3890  IF 

3900 

3910  RETURN 

3930  REM  ** 

2930  REM  ** 

3940  REM  ** 

3950  REM  ** 

3960  REM  ** 

3970  REM  ** 

2980  REM  ++ 

2990  REM  ** 

3000  REM  ** 

3010  REM  ***■ 

3030  DEFFN  ' 150 

3030  GOSUB  ' 151  <C1*) 

3040  IF  Cl*  <>  "STOP 

3050  Q*  - "E" 

306-0  GOTO  3130 

3070  REM  ** 

3080  GOSUB  ' 333  (l.O.Cl*) 

3090  IF  O*  - " " 

3100  PRINT  HEX<07)  I "RE-1 

3110  GOTO  3030 

3120  REM  ** 

3130  RETURN 

3140  REM  ** 

3150  REM  ** 


REM  ENTRY 

REM  CRS  LEN  (DAYS) 

REM  AOB 

REM  I NIT  TYPE  HRS 


REM  BEG  RATIO  LOOP 
REM  NO  HRS 
REM  NO  RATIO 
REM  CMPUT  OUOTA/RATIO 
REM  ROUND  QUOTA/RATIO 
REM  ROUND  QUOTA/RATIO 
REM  SUM  TYPE  HOURS 
REM  CONT  RATIO  LOOP 


THEN  27€'0 
THEN  3760 


REM  NUM  OF  CLASSES 
REM  ROUND  TO  WHOLE 
REM  ST OR  # OF  CLAS 
REM 
REM 

REM  # OF  INSTRUCTRS 
REM  ROUND  # OF  INSTS 
REM  STOR  # OF  INSTS 


E2  = C6< 1 ) /3 

E3< 1 ) = I NT  <C6( 1 )/2) 

E3( 1 ) -E3  >=  O 

E3( 1 ) = E3<1>  ♦ 1 


Abstract  > 

This  routine  will  select  an  ALL  or  PART  mode  for  the 
generation  of  the  schedule. 

Variables  > 


REM  ENTRY 
REM  ENTER  CDP 
REM  NOT  EM)  OF  LIST 
REM  SET  EOF  FLAG 
REM  BRANCH  TO  EXIT 


REM  FIND  OLD  CRS 
REM  BRNCH  TO  EXIT 
REM  INVALID  CDP 
REM  RE-ENTER  CDP 


REM  EXIT 


1 5 1 


f.  . 


3160 

3170 

3180 

3190 

3500 

3510 

3550 

3530 

3540 

3550 

3560 

3570 

3580 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


Subroutine  mi  ne  w w »*« mis  mi  wax  ess  ness  sees sseeem 

Abstract  > 

This  routine  Mill  allow  the  CDP  number  to  be 
input  and  verified  for  valid  syntax. 

Variables  > 


DEFFN  ' 151  (Cl*> 

GOSUB  ' 101  (14.1.1.0) 

PRINT  HEX  ( OAOA ) 

GOSUB  ' lOl  (14.1.0.0) 

PRINT  " Enter  CDP  Number  (STOP  to  Stoo) 


: REM  ENTRY 
: REM  POSITION  CUSOR 
: REM  FOR  TC  USE 
: REM  POSITION  CUSOR 
— > REM  PRNT  PROPT 


3590 

INPUT 

Cl* 

a 

REM 

INPUT  RESPONCE 

3300 

REM  ** 

3310 

FOR 

I - 1 TO  4 

a 

a 

REM 

BEG  SYNTAX  LOOP 

3350 

IF 

STR(C1*. 1. 1 ) 

> 

"Z" 

THEN 

3360 

a 

a 

REM 

INVALID  CHAR 

3330 

IF 

STR(C1*. I . 1 ) 

>= 

"A” 

TI-EN 

3400 

• 

a 

REM 

VALID  CHAR 

3340 

IF 

STR(C1*. I. 1) 

> 

"9* 

THEN 

3360 

a 

a 

REM 

INVALID  CHAR 

3350 

IF 

STR(C1*. I . 1 ) 

> = 

“0” 

THEN 

3400 

a 

a 

REM 

VALID  CHAR 

3360 

PRINT  HEX (07) 

. N 
a 

RE-ENTER. 

N 

a a a 

a 

a 

REM 

INVALID  CDP 

3370 

1*4 

a 

a 

REM 

SET  END  OF  LOOP 

3380 

NEXT  I 

a 

a 

REM 

TERMINATE  LOOP 

3390 

GOTO  3570 

a 

a 

REM 

RE-ENTER  CDP 

3400 

NEXT 

I 

a 

a 

REM 

CONT  SYNTAX  LOOP 

3410 

REM  ** 

3450 

RETURN 

a 

a 

REM 

EXIT 

3430  REM 
3440  REM 
3450  REM 
34€0  REM 
3470  REM 
3480  REM 
3490  REM 
3500  REM 
3510  REM 
3550  DEFFN 


Subroutine 
Abstract  > 

This  routine  Mill  open  the  nessary  KFAM  tiles. 
Variables  > 


5 0 1 


3530 

3540 

3550 

3560 

3570 

3580 


PRINT 

PRINT 

PRINT 

GOSLB 

PRINT 

INPUT 


501 


101 


HEX (O30AOAOA) 

* MOUNT  SCHEDULE  DATA  DISK * 

HEX (OAOAOA) 

(8. 1.0.0) 

- TOUCH  'RETURN'  WHEN  READY..”: 
A* 


: REM  ENTRY 
: REM  CLR  CONSOLE 
: REM  PRINT  PROMPT 
I REM  FOR  TC  USE 
: REM  POSITION  CUSOR 
: REM  PRINT  PROMPT 
: REM  RESPONCE  WAIT 


3590  REM  ** 


3600 

GOSUB  ' 

539 

(1) 

a 

a 

REM 

VERIFY  CLOSED 

3610 

GOSUB  ' 

530 

( 1. 1.5. 1. FI*) 

a 

a 

REM 

OPEN  DATA  BASE 

3650 

IF 

O*  * ” ” 

THEN 

3650 

a 

a 

REM 

FILE  OPENED 

3630 

GOSUB  ' 

035 

C KFAM  OPEN  ERROR. 

. FILE  1”) 

a 

a 

REM 

PRINT  ERR  MSG 

3640 

REM  ** 

3650 

GOSUB  ' 

535 

( 1 ) 

a 

a 

REM 

FIND  FIRST  DAT  FIL 

3660 

IF 

Q*  = • ” 

THEN 

3690 

a 

a 

REM 

NO  ERR  FOUND 

3670 

GOSUB  ' 

035 

(”  KFAM  FIND  FIRST 

ERROR  ..(501)”) 

a 

a 

REM 

DISPLAY  ERROR  MSG 

3680 

REM  ** 

{ 3690 

RETURN 

a 

a 

REM 

EXIT 

3700  REM 
3710  REM 
3750  REM 
3730  REM 
3740  REM 
3750  REM 


Subroutine 
Abstract  > 

This  routine  Mill 
Variables  > 


5 0 3 


load  a record  from  the  data  base. 


96 


■ ■ ■ • 

vS. 

i ■ . ■ ■ i-  >'  ' 

I.V#-  $ 


s*.  ■ 

/V 


3760  REM  ** 

3770  REM  ** 

3780  REM  

3790  DEFFN  ' 203  Z REM  ENTRY 

3800  GOSUB  'ISO  : REM  FIND  NXT  CRS  REC 

3810  IF  0*  = *E"  THEN  3930  : REM  BRNCH  TO  EXIT 

3820  KEYIN  F*.  3830.  3830  : GOTO  3870  : REM  INTRUPT 

3830  IF  Ft  > HEX  ( IF ) TPEN  3870  Z REM  NOT  CNTR  CHAR 

3840  O*  = "E"  ; REM  SET  EOF  FLAG 

3850  GOTO  3930  : REM  BRNCH  TO  EXIT 

3860  REM** 

3870  DATA  LOAD  DC  #2  . CltO.NltO.  T*OfIl*() 

. C2*().  W*().  R*().  H*() 

. Ml*( >. I9*( ).E1*( ).S1*( ).S2*( > 

3880  DO*< 1 > = C1*(Q)  ; REM  FETCH  CDP 

3890  D4*( 1 ) = T*(Q>  : REM  FETCH  TITLE 

3900  D2*(l)  = W*(Q)  : REM  FETCH  CRS  LEN 

3910  CONVERT  D2t(l)  TO  D2< 1 ) : REM  CRS  LEN  (WKS) 

3920  D2<2>  = D2( 1 )*7-2  Z REM  CRS  LEN  (DAYS) 

3930  RETLBN  ; REM  EXIT 

3940  REM  ** 

3950  REM  ** 

3960  REM  ** 

3970  REM  ** 

39B0  REM  ** 

3990  REM  ** 

4000  REM  ** 

4010  REM  ** 

4020  REM  **- 

4030  DEFFN  ' 205  : REM  ENTRY 

4032  F5  = O 

4040  PRINT  HEX < 030A0A0A ) : REM  CLR  CONSOLE 

4050  GOSUB  ' 101  (1.1.0. 0>  : REM  POSITION  CUSOR 

4060  PRINTUSING  4350.  T><0) 

4070  PRINT 

40B0  PRINTUSING  4360.  " * 

4090  PRINTUSING  4370.  " " 

4100  PRINTUSING  4380.  " " 

4110  PRINTUSING  4390.  C1*(Q) : T*(0> : W( 1 ) : W2( 1 ) : 1 1 ( 1 ) :Q( 1 ) 

4120  PRINT 

4130  PRINTUSING  4400.  " " 

4140  PRINTUSING  4410.  " " 

4150  PRINTUSING  4420.  * " 

4160  PRINTUSING  4430. C2(  1 ) .C4(  1 ) .C5(  1 ) :C6(  .1 ) : I3(  1 ) : 

Mit(Q) : I9t(0) :si*(Q) :S2t(0) :E3( l ):ei*(o> 

4170  SELECT  PRINT  005(64) 

4180  IF  F5<>0  THEN  4340  : REM  IF  LPT  PRINT 

4182  GOSUB  ' 101  (13.1.1.0)  Z REM  POSITION  CUSOR 

4190  INPUT  "ALTER  INPUT  OR  CLASS-SIZE  (Y  or  N)'.Yt:  REM  INPUT  RESPONCE 

4200  F5  - O : REM  INIT  CLR  PRINT  FLG 

4210  IF  Y*  <>  "Y"  THEN  42BO  : REM  IF  NO  CHANGES 

4212  GOSUB  ' 101  (13.1.1.0)  : REM  POSITION  CUSOR 

4220  INPUT  "ENTER  PLANNED  INPUT". I1*(0)  : REM  CHANGE  INPUT 

4222  GOSUB  ' 101  (13.1.1.0)  : REM  POSITION  CUSOR 

42.30  INPUT  "ENTER  CLASS  SIZE".C2*(0)  : REM  CHANGE  SIZE 

4240  GOSUB  '110  : REM  CONV  TO  NUMERIC 

4250  GOSUB  '111  : REM  CMPUT  NEW  VALUES 

4260  GOTO  4050  : REM  REPRINT  DATA 

4270  REM  ** 

4280  GOSUB  ' 101  (13.1.1.0)  : REM  POSITION  CUSOR 


Abstract  > 

This  routine  will  display  the  course  feasability 
Variables  > 


4282 

4290 

4300 

43.10 

4320 

4330 

4340 

4342 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 


INPUT 

IF 


•WANT  A PRINTOUT  <Y  OR  N)‘.Y*  : REM  INPUT  RESPONCE 

Y*  <>  * Y*  THEN  4340  : REM  GET  NEXT  CRS 


SELECT  PRINT  215(64)  : REM  SEL.  OUTPUT  DEV 

F5  * 1 : REM  SET  PRINT  FLAG 

GOTO  4040  1 REM  PRINT  DATA 

REM  ** 

GOSUB  ' 101  <13.1.1.0)  : REM  POSITION  CUSOR 

RETURN  Z REM  EXIT 

X # LENGTH 

X#  CDP  TITLE  WKS  DAYS  INPUT  AOB 

X#  

UU  U U UUU  uuu  uuuu  uuuu  u uuu  u 11 

WwttW  WwWwWWWwWWwWwWwwW  WWW  W WWW  WWWWW  WWW  • WW 

X#CLASS  SHED  C0NV  C/C  INSTRUCTOR  SUPPORT  TRAINERS 

Z#SIZE  CLASS  FREQ  CLASS  REQ  MPA  OTHER  REO  MPA  REQ  AVL 

XiLUilii  iLM  u U uu  uuu  uu  uuu  uu  uu  uuu  ..  »«  .■ 

WwWW  Wwww  Ww  • ww  WW  > WW  WWW  WW  WWW  WW  WW  WWW  WWW 


INPUT  AOB 


i 
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